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Chapter  1 :  Overview 


1.1  Introduction 

The  All-sky  Imaging  Photometer  (ASIP)  has  been  an  invaluable  tool  in 
studying  ionospheric  processes  by  characterizing  the  evolution  of  plasma 
structures.  ASIP  measurements  complement  the  repertoire  of  existing  ground- 
based  and  satellite-based  sensors  needed  to  study  our  complex  ionosphere  by 
providing  estimates  of  height,  gradient  scales,  and  morphological  signatures  to 
these  multi-scale  plasma  structures.  They  can  take  the  form  of  polar  cap  sub¬ 
visual  arcs  and  polar  cap  patches  at  high  latitudes  which  often  requires  high 
temporal  resolution  (seconds)  or  they  can  be  slow  time  scale  (1-2  minutes) 
effects  such  as  equatorial  F-region  bubbles  found  at  low  latitudes.  A  dual-mode 
(image  intensifier  mode  or  bare-CCD  mode)  ASIP  has  been  developed  for 
ionospheric  researchers  to  investigate  these  phenomena  and,  unlike  its 
predecessors,  provides  them  the  option  to  optimize  between  temporal  resolution 
and  image  quality.  Imager  sensitivity  down  to  tens  of  Rayleighs  has  been 
achieved  by  applying  the  latest  innovations  in  image  intensifier,  CCD,  and 
narrow-band  filter  technologies. 


1 .2  What  Was  Accomplished 

This  ASIP  was  built  using  the  new  Gen  III  image  intensifier  tube,  a  16-bit 
1300x1340  CCD,  and  16A  notch  filters.  The  instrument  was  installed  and 
operated  at  Ny  Alesund,  Svalbard  for  use  by  AFRL  scientists  and  collaborating 
researchers  during  two  key  campaign  periods  in  December  2001  and  in  February 
2002.  Real-time  ASIP  data  was  provided  over  the  internet  to  assist  with  the 
interpretation  of  data  from  other  instruments,  including  the  EISCAT  radar,  by 
identifying  and  locating  the  existence  of  polar  cap  patches  and  arcs  as  well  as 
the  boundaries  of  the  auroral  oval.  AFRL  scientists  at  Ascension  Island  also 
used  this  technology  in  March  2002  to  monitor  F-region  bubbles  and  its  impact 
on  DoD  communication  and  navigation  systems. 


1.3  Why  It  Is  Important 

The  ASIP  is  unique  as  it  provides  time  continuous  two-dimensional  view  of 
plasma  processes  in  the  overhead  ionosphere.  As  a  basic  research  tool, 
scientists  can  more  accurately  analyze  and  specify  the  behavior  of  ionospheric 
processes  from  optical  signatures  both  in  the  high  temporal  and  high  spatial 
(image  clarity)  domains  and  more  often  than  not,  fills  the  measurement  “voids” 
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attributed  by  other  sensors.  ASIP  data  can  be  used  to  validate  or,  with  certain 
cases  predict,  the  onset  of  scintillation  effects  to  both  UHF  and  L-Band 
transmissions.  As  an  optical  diagnostic  tool,  ASIP  was  designed  to  keep  the  Air 
Force  in  the  forefront  of  ionospheric  science  as  well  as  providing  a  better 
understanding  of  the  ionospheric  impact  to  operational  DoD  systems. 


1 .4  Camera  Side  View  &  Data  Example 

1.4.1  Image  Intensifer  Mode 


Figure  1-1  ASIP  Side  View  -  Intensifer  Mode 


Image  intensifier  mode  ASIP  provide  researchers  with  an  instantaneous 
sky  map  of  ionospheric  dynamics.  This  0.5  second  exposure  in  Figure  1-2 
shows  a  polar  cap  patch  migrating  towards  the  auroral  oval  to  the  south. 
Plasma  structures  such  as  these  affect  transionospheric  radio  transmissions. 
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Figure  1-2  Intensifer  Mode  Data  Example  -  Auroral  Patch 


1.4.2  Bare  CCD  Mode 


Figure  1-3  ASIP  Side  View  -  Bare  CCD  Mode 


Bare-CCD  mode  ASIP  (without  image  intensifier)  help  identify  regions 
where  line-of-sight  radio  disruptions  from  communication  and  navigation 
satellites  can  occur.  This  2  minute  exposure  in  Figure  1-4  shows  detailed 
bifurcated  depletion  edges  (dark  band)  formed  by  equatorial  spread-F  bubbles. 
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Figure  1-4  Bare  CCD  Mode  Data  Example  -  Spread-F  Bubbles 


1 .5  Core  Features  of  the  AS  IP  System 

The  All-sky  Imaging  Photometer  built  by  KEO  Consultants  for  AFRL  is 
based  around  the  Roper  Scientific  VersArray  CCD  Camera  system.  The  basic 
physical  components  of  the  camera  are: 

The  Roper  Scientific  VersArray  ST133  CCD  Controller  Unit.  This  contains 
all  the  analog  control  and  computer  interface  electronics  and  connects  to  both 
the  computer  system  and  the  camera  head. 

The  Removable-Intensified  Camera  system.  This  unit,  built  by  KEO 
Consultants,  integrates  the  Roper  VersArray  Camera  Head  with  a  EEV 
1340x1300  CCD,  a  25mm  Gen-Ill  removable  image  intensifier,  temperature- 
controlled  filterwheel  assembly  and  interface  electronics.  These  are  all  coupled 
optically  and  include  an  all-sky  lens  in  the  front  of  the  camera.  The  electronics  to 
control  the  intensifier,  shutter  and  filter  assemblies  are  interfaced  to  the  computer 
system  via  one  RS-232  cable  at  the  rear  panel  of  the  camera  chassis. 

This  imager  has  the  capability  to  acquire  data  using  the  Gen-Ill  intensifier 
tube  with  fast,  14-bit  conversion  OR  just  using  the  bare  CCD  using  slow,  16-bit 
conversion. 


Computer  support  for  this  camera  uses  RedHat  Linux  7.1  and  the  Roper 
LINUX  PVCAM  drivers  version  2.5.8.  In  addition,  LINUX  support  for  the 
SMARTMOTOR  control  interface  (RS-232  serial)  is  also  supplied. 

Documentation  is  provided  for  these  systems.  The  user  should  familiarize 
themselves  with  the  Roper  Scientific  CCD  camera  system  documentation.  In 
addition,  the  Animatics  documentation  will  describe  the  filterwheel  servo  control 
system  and  the  RS-232  interface  that  controls  the  intensifier,  shutter  and 
filterwheel  systems. 


1 .6  Brief  Description  of  the  ASIP  System 


The  Auroral  Imager  consists  of  an  all-sky  lens  that  is  imaged 
telecentrically  onto  a  six  position  4”  filterwheel  containing  narrow-band 
interference  filters  (typically  about  20  Angstroms  wide).  Because  the  interference 
filters  are  temperature  dependent  (drifts  are  typically  on  the  order  of  1  Angstrom  / 
5  degrees  C),  a  stand-alone  temperature  controller  is  provided  with  the 
instrument  (ATHENA  XI 6)  to  keep  the  temperature  of  the  filters  at  approximately 
room  temperature,  or  about  25C.  The  temperature  can  be  controlled  remotely 
via  a  standard  RS-232  serial  interface. 

The  filter  image  is  then  re-imaged  either  onto  the  front  of  a  Gen-Ill  type 
image  intensifier  or  directly  onto  the  EEV  1340x1300  scientific-grade  CCD  chip. 
Gain  control  of  the  image  intensifier  allows  controlling  the  gain.  The  image  on 
the  back  of  the  image  intensifier  is  then  re-imaged  onto  the  CCD  of  the  VersArray 
CCD  camera  head.  The  camera  head  is  thermo-electrically  cooled  to  provide  a 
decreased  dark-noise  accumulation  and  allow  longer  integration  times.  The  CCD 
camera  head  is  connected  to  the  ST133  camera  electronics  unit  which  supplies 
power,  timing  signals  and  the  data  interface  both  to  the  camera  head  and  back  to 
the  HOST  computer.  The  ST133  has  capability  of  dual-speed  conversion.  When 
using  the  image  intensifier,  the  fast  conversion  should  be  used,  and  when  using 
the  bare  CCD,  the  slow  conversion  (16  bit)  should  be  used.  The  VersArray 
camera  head  has  an  internal  shutter  directly  in  front  of  the  CCD  window  which  is 
used  for  the  exposure  time. 

A  shutter  at  the  front  of  the  instrument  is  used  as  a  “capping”  shutter 
(sunlight  directly  hitting  the  interference  filters  can  damage  them).  A  light 
detector  at  the  front  of  the  instrument  is  used  as  an  automatic  over-ride  to  avoid 
over-exposure  and  possible  damage  to  the  image  intensifier.  A  standard  RS-232 
interface  is  used  to  control  the  filterwheel,  intensifier  and  shutter  operations. 
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Chapter  2:  Camera  Optics 


2.1  Bare  CCD  Operation 

From  the  front  lens  of  the  camera  to  the  rear,  the  optical  components  for  bare 
CCD  operation  are  as  follows: 

Front  primary  lens  (Mamiya  37mm/F4.5  with  180°  field-of-view).  This  lens  should 
be  focused  at 00  and  the  F-stop  should  be  set  wide-open  at  F4.5,  and  the  in-built 
filter  wheel  set  at  SL-1 B. 

Telecentric  optics.  (These  lenses  (100  mm  Dia.,  2  x  plano-convex)  are  between 
the  shutter  and  the  filterwheel,  and  ensure  that  the  image  at  the  filter  is 
telecentric.  This  is  necessary  for  narrow-band  interference  filters  as  the 
transmission  wavelength  is  dependent  on  the  incident  angle.  At  F4.5,  the  half¬ 
cone  angle  of  light  passing  through  the  filter  is  6.3  degrees. 

Re-imaging  optics:  Consists  of  two  achromats,  with  diameters  100  mm  (behind 
filter  wheel)  and  72  mm  (on  Canon  camera  lens),  and  a  camera  lens.  The 
telecentric  image  at  the  filter  (~  92  mm  dia.)  must  be  re-imaged  onto  the 
VersArray  camera  CCD  detector  (image  dia.  ~  24  mm).  The  Canon  camera  lens 
(85  mm/FI. 2)  mounted  to  the  CCD  camera  must  have  its  F-stop  set  all  the  way 
open  (FI  .2). 

Note:  The  reduction  of  the  92  mm/F4.5  image  to  24  mm  requires  the  camera  lens 
to  have  a  F  number  of  FI  .2  or  less: 

(92/24)2  =  14.7  -  3.9  f  stops,  =  F4.5  to  FI  .2 

A  field-curvature  corrector  lens  is  mounted  as  the  entrance  window  to  the 
VersArray  camera. 


2.2  Intensifier  Operation 

An  Image  Intensifier  Assembly  may  be  inserted  into  the  system  if  desired.  This 
consists  of  an  ITT  25mm  Gen  III  (Ga-As)  Intensifier  (ultra-blue  cathode)  mounted 
in  a  custom  TE  Cooler  Chamber,  with  re-imaging  optics  to  the  CCD  camera. 

The  same  Canon  85mm/F1.2  lens  is  used  on  the  front  of  the  Image  Intensifier 
Assembly,  and  forms  a  ~24mm  image  on  the  25mm  Image  Intensifier  cathode. 
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ALL-SKY  MONOCHROMATIC  WAGER  -  OPTICAL  SCHEMATIC 


The  image  on  the  back  of  the  image  intensifier  must  be  re-imaged  (1:1)  onto  the 
CCD  in  the  VersArray  camera  head.  The  collimator  lens  that  takes  the  image 
from  the  intensifier  output  phosphor  is  a  Canon  50mm/F0.95  set  wide  open  at 
F0.95  and  at  infinity  focus,  and  the  camera  lens  on  the  VersArray  camera  head  is 
a  Canon  50mm/f1.2,  which  should  have  it’s  /-stop  set  all  the  way  open  at  FI. 2. 
The  Canon  lens  is  used  for  focus. 

As  there  is  a  field  curvature  corrector  lens  mounted  permanently  in  the  VersArray 
camera,  a  compensating  lens  is  mounted  in  the  Cooler  Chamber  near  the  Image 
Intensifier  output  phosphor,  so  that  the  re-imaging  optics  is  corrected. 

An  optical  schematic  for  this  configuration  is  shown  in  Figure  2-1 . 

The  camera  can  be  focused  in  the  lab  by  setting  the  Mamiya  lens  focus  at 00  for 
far  objects  (>10  feet)  or  to  the  actual  distance  for  nearer  objects,  and  then 
adjusting  the  Canon  85mm/F1 .2  lens  until  best  focus  is  achieved,  either  directly 
onto  the  CCD,  or  onto  the  Image  Intensifier.  When  the  intensifier  is  used,  the 
Canon  50mm/F1 .2  lens  on  the  VersArray  camera  is  used  to  then  focus  from  the 
rear  of  the  intensifier.  It  may  be  necessary  to  iterate  back  and  forth  between 
focus  at  the  intensifier  and  the  CCD  to  obtain  best  focus.  Both  lenses  should  be 
able  to  adjust  the  image  ‘through’  focus,  so  that  one  can  definitely  determine  the 
optimum  focus  settings. 

KEO  has  determined  through  experience  that  the  best  way  to  critically  focus  the 
camera  is  by  looking  at  a  star  field.  Once  the  camera  is  set  up  to  look  at  the  night 
sky,  remove  one  of  the  filters  and  take  short  white-light  exposures  to  get  good 
star  images.  One  can  also  do  this  by  taking  longer  exposures  using  the  narrow- 
band  filters,  but  the  process  will  take  longer. 


2.3  Mounting  the  Intensifier  Assembly 

A  proportionally  scaled  mechanical  drawing  is  show  in  Figure  2-2. 

The  U-Channel  Upright  holding  the  VersArray  camera  may  be  taken  off  via  two 
1/4-28  screws.  The  Canon  85mm/F1.2  lens  is  removed  from  the  VersArray 
Camera  and  mounted  to  the  front  of  the  Image  Intensifier  assembly.  The  Image 
Intensifier  assembly  then  mounts  using  the  same  hole  pattern.  The  Canon 
590mm/F1.2  lens  is  then  mounted  on  the  VersArray  Camera,  and  the  camera 
remounted  on  the  U-Channel  at  the  rear  of  the  Image  Intensifier  assembly,  using 
the  other  set  of  14/28  mounting  holes. 
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Figure  2-2  Scaled  Mechanical  Drawing 
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2.4  Removing  the  Primary  Lens 


The  primary  lens  may  be  removed  from  its  housing  by  turning  the  large  clamping 
ring  so  the  red  dots  align.  The  telecentric  optics  and  shutter  assembly  can  also 
be  unscrewed  from  the  filter  wheel. 


2.5  Removing  and  Adding  New  Filters 

To  remove  and  add  new  filters  to  the  filterwheel,  simply  remove  the  front 
optics  from  the  system  by  unscrewing  the  optics  assembly  attached  to  the 
filterwheel  housing.  The  telecentric  optics,  shutter  and  fisheye  lens  will  all 
unscrew  from  the  filterwheel  housing  in  one  piece.  The  filters  are  accessible 
through  the  front  cover  and  there  are  three  retaining  screws  to  hold  them  in 
place.  A  piece  of  scotch  tape  applied  lightly  to  the  filter  can  help  pull  them  out  of 
the  filter  housing. 


2.6  Field  Curvature  and  Focusing 

All  multi-element  systems  require  some  compromise  when  designing  with 
off-the-shelf  optical  components.  The  telecentric  and  reimaging  optics  results  in 
some  field  curvature  at  the  final  image,  so  that  the  optimum  focus  for  stars  at  the 
center  of  the  image  is  slightly  different  than  the  optimum  focus  for  stars  near  the 
edge  of  the  image.  To  correct  for  this,  a  curvature-corrector  lens  is  mounted 
within  the  Roper  CCD  Camera,  at  a  distance  of  about  2mm  in  front  of  the  CCD. 

KEO  recommends  optimizing  the  focus  using  stars  at  about  45°  elevation 
so  that  the  zenith  and  the  horizon  are  as  little  out  of  focus  as  possible. 

Note  too  that  the  optics  is  color  corrected  for  the  visible  region  (450-700 
nm),  and  there  may  be  a  slight  change  in  focus  if  working  in  the  near  infrared, 
necessitating  a  compromise  focus  be  set  between  the  visible  and  the  near-ir. 


2.7  Instrument  Mounting 

Mounting  holes  are  provided  on  each  side  of  the  U-channel  base  (1/4-20 
thread).  The  instrument  should  be  mounted  so  that  the  front  of  the  primary  lens 
is  near  to  the  center  of  curvature  of  any  plexiglass  or  glass  domes  used.  (If  the 
primary  lens  is  too  close  to  the  hemispherical  surface,  distortions  and  focus 
problems  may  result.) 
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2.8  A  Brief  Discussion  of  Useful  Calibration  Procedures 

As  one  becomes  familiar  with  using  this  instrument,  there  will  be  several 
calibrations  that  you  will  want  to  perform  to  further  understand  the  instrument’s 
characteristics  and  to  be  able  to  use  the  data  quantitatively.  A  list  of 
recommended  calibrations  is  presented  here. 

Temperature  Controller  Calibration:  (Refer  to  the  ATHENA  Temperature 
Controller  Manual).  Once  the  instrument  is  installed,  the  ATHENA  controller  can 
be  programmed  to  display  in  either  °F  or  °C.  An  autotuning  feature  will  determine 
the  best  PID  loop  parameters  to  accurately  control  the  filterwheel  temperature.  A 
set  point  around  room  temperature  should  be  selected  and  noted  in  you  lab 
notes.  Keo  Consultants  has  autotuned  your  filterwheel  system,  but  this  might 
need  to  be  redone  when  the  final  field  installation  is  completed. 

Once  you  have  the  camera  set  up  and  working  in  the  lab,  it  will  be  a  good 
exercise  to  calibrate  the  intensifier  gain  settings.  Using  a  constant  light  source, 
take  a  well  exposed  image  at  maximum  gain  (3),  and  get  an  average  of  it’s 
illuminated  area  and  an  average  of  that  area  with  the  light  source  turned  off.  Set 
the  intensifier  gain  and  adjust  the  appropriate  potentiometer  (VR3)  on  the 
intensifier  control  board  until  the  value  of  the  illuminated  area  minus  dark  image 
is  half  of  that  at  maximum  gain.  Do  the  same  for  gain-=1  and  set  the  gain=0  for 
minimum  gain  and  calibrate  that  with  respect  to  maximum  gain.  Save  these 
values  for  future  calculations. 

Calibrate  the  light  sensor  sensitivity  setting  (VR4  on  the  control  board)  to  switch 
the  intensifier  power  on  at  an  ambient  light  level  roughly  equivalent  to  civil  twilight 
(or  a  solar  depression  angle  of  6°). 

Use  the  calibrated  light  source  that  you  use  to  calibrate  your  other  photometric 
instruments  to  take  long  exposures  at  the  different  filter  wavelengths  to  get  a 
spectral  calibration  and  overall  quantitative  calibration  of  the  instruments.  You 
will  need  to  use  the  filter  curves  and  the  spectral  response  of  your  light  source  to 
correctly  calculate  these  values. 


Get  vignetting  curves  for  the  optics  in  the  camera.  Using  a  constant  light  source, 
take  exposures  with  the  source  at  equidistant  positions  from  the  front  camera 
element,  but  at  different  elevation  positions.  Compare  the  output  from  these 
different  exposures  at  the  same  exposure  time  to  get  a  vignetting  curve  for  the 
optics.  This  will  be  important  to  “flatten”  out  the  measurements  of  structures  that 
span  large  parts  of  the  field  of  view. 

Calibrate  the  center  and  radius  of  the  image  with  respect  to  CCD  pixels  to  get  a 
spatial  calibration  of  the  instrument.  The  best  way  KEO  has  found  to  do  this,  is 
to  take  a  bright  image  that  clearly  illuminates  the  edge  of  image.  Image 
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processing  algorithms  can  also  help  to  bring  out  this  edge.  Measure  about  10 
points  around  the  edge  of  this  image  in  CCD  pixels,  and  then  use  different  sets  of 
three  points  from  this  data  set  to  calculate  an  average  radius  and  center. 

Take  a  few  bias  images  with  the  CCD  fully  cooled  down,  and  get  an  average 
statistic  for  the  bias  at  different  gains.  It  is  a  good  idea  to  check  this  value  for 
consistency  over  time  to  check  that  the  camera  electronics  have  remained 
calibrated. 

It  is  a  good  idea  to  take  some  long  dark  noise  exposures  at  the  two  different 
camera  gains  and  calculate  what  the  dark  noise  contribution  is. 

Although  all  these  calibrations  will  take  a  lot  of  time  and  care,  KEO  recommends 
doing  them  to  get  a  full  understanding  of  the  capabilities  of  your  instrument  and 
to  prepare  you  data  for  good  quantitative  analysis.  These  calibrations  will  pay  off 
in  the  long  run  when  it  comes  time  to  analyze  the  data  you  will  take  with  this 
instrument. 
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Chapter  3:  Hardware 


3.1  Overview 

This  section  will  discuss  the  hardware  systems  supplied  by  KEO 
Consultants  to  control  the  All-Sky  Intensified  Camera  system  built  for  ARFL. 


3.1.1  Camera  System 

The  camera  system  is  built  around  the  VersArray  air-cooled  camera  head. 
This  interfaces  to  the  ST133  camera  controller  via  one  interface  cable.  You 
should  refer  to  the  Roper  Scientific  documentation  for  more  information  on  this 
system. 


3.1 .2  Computer  Interface 

The  Roper  Scientific  ST133  camera  controller  is  interfaced  to  the 
computer  via  a  PCI  standard  interface  card  supplied  by  Roper.  This  card 
controls  the  camera  system  and  reads  the  digitized  CCD  pixel  data  from  the 
controller  directly  into  the  computer’s  RAM.  Again,  for  more  information  on  this 
hardware,  please  refer  to  the  Roper  Scientific  documentation. 


3.1.3  Initial  Hook-up 


•  The  camera  system  has  a  power  cord  that  connects  to  the  back  of  the 
camera  chassis.  Plug  this  into  1 1 0VAC. 

•  Connect  the  30’  DB9  cable  (M)  to  the  back  of  the  DB9  connector  (F)  on 
the  back  of  the  camera  chassis. 

•  Connect  the  30’  DB9  cable  (F)  to  the  DB9  connector  labelled  CAM  (M)  on 
the  DB9  Y-cable  supplied  with  the  instrument. 

•  Connect  the  DB9  connector  on  the  DB9  Y-cable  labelled  FW  (F)  to  the 
RS-232  port  (e.g.  COMM1)  that  you  are  going  to  use  to  control  the  camera 
systems. 

•  Connect  the  DB9  connector  on  the  DB9  Y-cable  labelled  TEMP  (F)  to  the 
RS-232  port  (e.g.  COMM2)  that  you  are  going  to  use  to  control  the 
temperature  controller  (ATHENA  XT16). 

•  Connect  the  Roper  Scientific  Camera  up  following  the  instructions 
supplied  with  the  imager. 
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3.1.4  Filterwheel,  Intensifier,  and  Shutter  Interface 

These  are  the  control  systems  that  KEO  has  built  for  your  camera 
systems.  Schematics  and  wiring  documentation  are  included  in  Chapter 
7:Hardware  References  of  this  manual  but  a  functional  description  will  be 
included  here. 

Control  for  these  instrument  functions  are  provided  via  an  RS-232  port. 
Either  port  can  be  used,  but  the  software  must  correctly  initialize  the  port 
connected.  The  RS-232  interface  connects  with  a  Servomotor  system  connected 
to  the  filterwheel  on  the  camera  --  the  SMARTMOTOR  built  by  Animatics  in 
California.  The  SMARTMOTOR  system  has  an  embedded  processor  with  built-in 
EEPROM  memory  and  is  used  to  control  the  filterwheel  system  as  well  as  the 
intensifier  and  shutter  control  systems. 

KEO  has  built  special  hardware  to  interface  between  these  two 
components.  The  advantages  of  this  design  are  user  flexibility  to  expand  and  re¬ 
program  the  system  to  meet  new  needs  and  the  convenience  of  only  having  one 
small  RS-232  interface  cable  to  control  the  whole  instrument.  Because  of  the 
standard  RS-232  interface,  any  terminal  program,  or  programmed  RS-232 
communications  can  control  the  instrument. 

The  ANIMATICS  temperature  controller  also  uses  an  RS-232  interface  to 
communicate  with  a  remote  HOST.  Both  of  these  RS-232  signals  are  brought 
out  of  the  imager  through  one  cable  via  a  DB9  connector.  KEO  has  supplied  a 
RS-232  junction  cable  to  separate  out  these  two  RS-232  interface  systems  at  the 
HOST.  To  use  both  systems,  you  will  need  two  available  serial  RS-232  ports  at 
your  HOST  computer. 

For  more  information  on  the  SMARTMOTOR  and  it’s  programming 
language,  please  refer  to  the  Animatics  SMARTMOTOR  manual.  In  addition,  the 
SMARTMOTOR  system  comes  with  it’s  own  development  system  that  provides 
an  easy  way  to  view  and  modify  the  programs  stored  in  it’s  EEPROM  memory. 


3.2  Filterwheel 

The  filterwheel  is  controlled  by  a  servomotor  system  supplied  by 
ANIMATICS  called  the  SMARTMOTOR.  It  is  a  controller,  servo-amplifier, 
encoder  and  motor  all  in  one  that  fits  the  standard  form  factor  of  a  23T  stepper 
motor.  The  SMARTMOTOR  is  controlled  by  one  1.25A  24VDC  power  supply. 
An  RS-232  interface  is  used  by  the  SMARTMOTOR  to  communicate  with  a  host 
computer  and  other  SMARTMOTORS. 

The  filterwheel  has  a  Hall-Effect  Sensor  built  into  the  housing  and  a  rare 
earth  magnet  built  into  the  actual  wheel  that  is  used  as  the  HOME  sensor.  Upon 
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start  of  the  filterwheel  control  program,  the  filterwheel  moves  slowly  to  the  HOME 
sensor  to  calibrate  the  encoder  position.  From  there  on,  an  incremental  encoder 
is  used  to  accurately  determine  the  filterwheel  position.  At  any  time,  a  new 
HOME  calibration  can  be  made  if  deemed  necessary.  The  HOME  detector  is 
interfaced  to  the  SMARTMOTOR  through  it’s  I/O  connector  and  uses  Index  pin 
A.  The  schematic  for  the  position  sensor  can  be  found  in  Chapter  7:  below  titled 
SS440  Digital  Position  Sensor  Data  Sheet. 

In  addition,  the  filterwheel  is  temperature  controlled.  An  ATHENA  XT16 
temperature  controller  is  provided  at  the  rear  of  the  instrument  to  control  the 
temperature  of  the  filters.  Because  the  wavelength  of  the  filters  shifts  with 
temperature  it  is  important  to  maintain  the  filters  at  approximately  room 
temperature,  or  somewhere  around  25°C.  Two  AC  heater  pads  are  mounted 
symmetrically  on  the  inside  of  the  filterwheel  to  maintain  this  temperature.  The 
table  for  the  temperature  sensor  used  can  be  found  in  Chapter  7:  below  tilted 
RTD  Chart. 

A  manual  for  the  ATHENA  temperature  controller  is  provided  with  the 
instrument.  Using  the  setup  controls,  the  display  can  be  adjusted  to  read  in  °C  or 
'F,  and  the  filterwheel  should  be  auto-tuned  when  finally  mounted,  so  that  the 
temperature  controller  can  optimize  the  control  feedback  parameters  used. 

Finally,  the  SMARTMOTOR  uses  an  l2C  serial  interface  to  control  external 
devices.  KEO  has  provided  an  l2C  parallel  I/O  board  for  this  purpose.  It  is  called 
the  DIO-116  board  and  provides  8  bits  latched  TTL  output,  and  8  bits  TTL  input 
via  this  card.  This  board  sits  as  a  daughter  board  on  the  KEO  Intensifier/Shutter 
Control  board  and  provides  the  interface  to  these  devices. 

The  DIO-116  board  is  set  up  to  use  two  adjacent  port  addresses  and  can 
be  adjusted  using  the  jumpers  A1  and  A2  providing  four  separate  addresses. 
These  boards  can  then  be  hooked  up  in  series  allowing  the  capability  for  32  bits 
of  latched  output  and  32  bits  of  input.  This  camera  uses  one  DIO-116  module 
and  it’s  address  is  set  to  0  using  the  ports: 

PORTA  (Output)  PORTB  (Input) 


3.3  Intensifier/Shutter  Control  Board 

The  Intensifier/Shutter  Control  Board  built  by  KEO  provides  a  flexible  and 
expandable  interface  circuit  to  control  two  shutters  and  the  image  intensifies  In 
addition  there  are  four  auxiliary  signals  for  additional  functions  to  be  added  to  the 
interface. 
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The  schematics  for  this  board  can  be  found  in  Chapter  7:  below  under  the 
title  of  Intensifier/Shutter  Control  Board  Schematics  Rev  B.  To  accommodate  the 
new  Gen-Ill  tubes  that  require  a  different  HV  power-supply,  a  daughter  board 
was  designed.  The  schematic  title  for  this  is  called  Gen-Ill  Intensifier  Gain 
Control  Daughter  Board. 

Note:  A  replacement  circuit  board  has  been  designed  and  built  specifically 
for  the  Gen-Ill  version  of  the  Intensifier/Shutter  Control  and  does  not  need  the 
daughter  board  option.  This  has  not  been  installed  yet,  but  the  schematics  are 
included  in  this  manual  under  Gen-Ill  Intensifier/Shutter  Control  Board 
Schematics. 


3.3.1  Power 

The  only  input  power  required  by  the  board  is  24VDC  coming  in  on  PI . 
Actually,  this  voltage  can  be  adjusted  up  to  40VDC  and  down  to  15VDC  (in  order 
for  the  12V  regulator  to  work).  The  starting  voltage  required  by  the  shutter 
determines  this  voltage.  Voltage  regulators  on  the  board  derive  all  other  voltages 
needed  for  the  board. 

In  this  particular  system,  24VDC  is  used  to  control  the  filterwheel  motor 
and  used  as  an  opening  voltage  for  the  Melles-Griot  shutter  supplied  with  the 
system.  A  24VDC  power  supply  is  mounted  inside  the  camera  chassis  and 
supplies  this  power. 

The  Control  Board  creates  three  different  voltages: 

5V  --  used  for  the  CMOS  circuitry  on  board  (U9) 

Vsh  --  used  as  the  holding  voltage  for  the  shutters  (U8) 

12V  --  used  for  external  components  (U10) 

All  three  of  these  voltage  regulators  can  handle  up  to  1 .5A  maximum. 

The  5V  supply  can  be  supplied  by  either  the  5V  regulator  on  board,  or  can 
be  brought  in  via  the  parallel  interface  on  P2  (pin  20).  If  the  on-board  regulator  is 
used,  then  J5  should  be  installed,  and  if  the  external  5V  supply  is  used  J6  should 
be  installed.  Under  no  circumstances  should  both  J5  and  J6  be  installed  at  the 
same  time!!! 

Vsh  is  used  to  create  a  holding  voltage  for  the  shutters  and  is  set  by 
adjusting  the  potentiometer  VR5.  This  value  should  be  set  at  about  1 .5V  above 
the  desired  holding  voltage,  as  there  are  two  diode  drops  that  occur  before  the 
voltage  reaches  the  shutter  coil. 
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12V  is  provided  on  the  board  for  the  convenience  of  the  user  in  the  event 
that  some  device  is  added  to  the  system  that  requires  12VDC.  It  has  been  used 
in  other  systems  to  power  RSI 70  CCD  cameras,  but  has  no  immediate  function 
in  this  camera. 


3.3.2  Parallel  I/O 

The  Intensifier/Shutter  Control  Board  has  an  8  bit  ln/8  bit  Out 
parallel  interface  coming  in  on  P2.  The  schematics  can  be  found  in  Chapter  7: 
below.  The  IN/OUT  definitions  are  from  the  DIO-1 16/SMARTMOTOR’s  point  of 
view.  Thus  an  Output  for  the  DIO-116  is  really  an  input  for  the  Intensifier/Shutter 
Control  Board.  Figure  3-1  shows  the  I/O  definitions  for  the  Control  Board.  Their 
functions  are  described  here. 

Shutter  Control  Signals:  SHTR1*  and  SHTR2*  are  negative  going  pulses 
that  control  the  shutter  outputs.  On  the  initial  down-going  transition  of  these 
signals,  a  50  msec  pulse  (determined  by  R1  *C1  or  R2*C2)  switches  the  24VDC 
onto  the  shutters.  For  the  remaining  duration  of  the  low  state  of  SHTR1*,  the 
voltage  set  by  Vsh  is  switched  onto  the  shutters.  A  longer  input  pulse  can  be  set 
by  changing  the  R1  *C1 ,  R2*C2  combinations  if  more  input  power  is  necessary  to 
open  the  shutters. 

Note:  The  SHTR1  channel  is  over-ridden  by  the  state  of  the  Light  Detector 
and  so  there  will  no  shutter  driver  output  unless  the  Light  Detector  determines 
that  it  is  dark  enough  to  safely  open  the  shutter.  SHTR2  has  no  such  disable 
function. 

STROBE*:  The  strobe  pulse  is  a  negative  going  pulse  that  clocks  in  the 
intensifier  gain  data  into  the  input  latches  on  U5.  The  signals  REM:GAIN0  and 
REM:GAIN1  determine  the  gain  setting  for  the  image  intensifier  and  should  be 
set  before  setting  the  STROBE*  signal  low.  The  new  gain  state  is  clocked  in  on 
the  negative  going  transition. 

Intensifier  Power:  The  intensifier  power  can  be  switched  on  and  off 
remotely  by  this  signal.  A  low  state  turns  the  power  off,  and  a  high  state  turns 
the  power  on.  To  actually  have  power  applied  to  the  image  intensifier,  the  light 
detector  must  be  in  a  valid  state  (dark  enough  for  safe  operation  of  the  intensifier 
tube).  There  is  no  way  to  override  this  detector  as  long  as  it  is  connected  to  the 
Control  Board. 


DIO-1 1 6  Intensifier/Shutter  Control  Board 


OUTO 

SHTR1* 

OUT1 

SHTR2* 

OUT2 

STROBE* 
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OUT3 

REM:INT_POWER 

OUT4 

REM:GAIN0 

OUT5 

REM:GAIN1  i 

OUT6 

OUT:TTLO 

OUT7 

OUT:TTL1 

INO 

GAINO 

INI 

GAIN1 

IN2 

INT_POWER:STS* 

IN3 

LIGHT_DET* 

IN4 

SHI  :STATUS 

IN5 

SH2:STATUS 

IN:TTL0 

IN7 

IN:TTL1 

5V 

5V 

GND 

GND  ] 

Figure  3-1  Intensifier/Shutter  Control  Board  I/O  Definitions 


REM:GAIN0  and  REM:GAIN1:  These  are  the  bits  that  determine  the  gain 
state  of  the  image  intensifier.  Valid  values  are  thus  0  to  3  and  adjust  the 
intensifier  gain  over  its  full  range,  which  is  usually  about  8:1.  Gains  are  usually 
adjusted  so  that  from  maximum  gain,  each  gain  below  this  reduces  the  output  by 
a  factor  of  2  (much  like  the  f-stop  in  a  camera  lens). 

OUT:TTLO  and  OUT:TTL1:  These  are  two  undefined  signals  that  can  be 
used  to  control  additional  devices  that  may  be  added  to  the  system  at  a  later 
time.  They  are  available  on  P3,  which  provides  an  interface  via  ribbon  cable  or 
daughter  board  configuration  to  an  expansion  circuit. 

GAINO  and  GAIN1:  These  bits  read  the  current  status  of  the  intensifier 
gain  and  send  it  to  the  interface  device.  These  bits  are  used  to  read  the  current 
intensifier  gain  to  verify  that  it  is  set  correctly.  This  feature  is  especially  important 
when  used  with  a  ‘Manual  Control  Panel’. 

INT_POWER:STS*:  This  signal  gives  feedback  to  the  actual  current 
running  through  the  image  intensifier  and  thus  give  independent  confirmation  that 
the  intensifier  power  is  actually  on.  A  5Q  resistor  (R11)  is  hooked  up  in  series 
with  the  ground  signal  of  the  intensifier  and  the  voltage  across  this  resistor  is 
amplified  at  U7.A  to  give  an  indication  of  intensifier  current.  Because  this  signal 
is  buffered  with  an  additional  Schmidt  Inverter  (U1.F),  the  signal  is  active  low.  A 
HIGH  signal  indicates  that  there  is  no  intensifier  power  present,  and  a  LOW 
signal  indicates  that  there  is  intensifier  power  present. 

LIGHT_DET:STS:  This  signal  reads  the  inverted  value  of  the  light  detector 
amplifier  (U7.B).  This  signal  is  used  to  enable  or  disable  the  intensifier  power 
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circuit.  Thus,  a  HIGH  signal  indicates  that  it  is  dark  enough  to  operate  the 
intensifier,  and  a  LO  signal  indicates  that  it  is  too  light  to  operate  the  intensifier. 
This  signal  must  be  adjusted  in  the  field  to  meet  the  requirements  of  the 
instrument.  KEO  usually  advises  that  the  intensifier  power  is  enabled  at  a  solar 
depression  angle  of  around  6°  (civil  twilight).  This  adjustment  is  made  by 
changing  the  value  of  the  potentiometer, VR4,  until  the  light  detector  switches 
states. 


SH1:STATUS  and  SH2:STATUS:  Some  shutters  such  as  the  one  supplied 
with  your  instrument  have  status  switches  installed  in  them.  The 
Intensifier/Shutter  Control  Board  provides  the  means  to  read  the  status  of  these 
switches  and  report  them  back  to  the  host  computer.  This  feature  is  useful  to 
check  that  the  shutter  is  working  reliably.  Unfortunately,  KEO’s  experience  in  the 
field  has  found  that  more  often  than  not,  the  shutter  status  switch  will  fail  to  open 
reliably  even  when  the  shutter  is  opening  correctly.  It  is  up  to  the  users  of  this 
instrument  to  determine  whether  this  status  signal  is  a  useful  feature  or  not.  In 
the  hope  that  someday  reliable  shutters  will  be  a  reality,  KEO  provides  this 
feature! 

IN:TTL0  and  IN:TTL1 :  These  two  undefined  inputs  to  the  host  can  be  used 
to  read  additional  devices  that  can  be  added  to  the  system  at  a  later  date.  They 
are  available  on  P3  which  provides  an  interface  via  ribbon  cable  or  daughter 
board  configuration  to  an  expansion  ciruit. 


5V  and  GND:  GND  must  be  connected  between  the  Control  Board  and  the 
Host.  The  5V  signal  is  optional.  5V  for  the  control  board  can  be  derived  from  the 
onboard  voltage  regulator  (U9),  or  from  the  host  interface.  Jumpers  J5  and  J6 
must  be  set  accordingly  as  described  above  under  the  POWER  section.  In  some 
rare  cases,  the  5V  derived  on  the  Control  Board  might  be  used  to  power  an 
interface  card  through  this  parallel  I/O  port.  In  this  case,  both  J5  and  J6  may  be 
installed. 

3.3.3  Shutter  Driver 

There  is  provision  for  two  shutter  drivers  on  the  Intensifier/Shutter  Control 
Board.  As  described  in  the  Parallel  I/O  section,  both  shutters  are  controlled  by 
ACTIVE-LOW  signals.  A  mono-stable  vibrator  (U2)  creates  a  50  msec  pulse 
which  is  used  to  momentarily  switch  the  24VDC  power  to  the  shutter.  This  gives 
the  shutter  a  powerful  starting  pulse  to  open  it  fully.  After  50  msec,  only  the  Vsh 
voltage  is  applied  to  the  shutter  providing  a  lower  voltage  holding  current  through 
the  shutter  coil. 

The  shutter  circuit  is  set  up  for  your  camera  to  open  at  24VDC  and  hold  at 
about  8VDC  which  is  typical  operation  voltages  for  the  Modified  PRONTOR 
shutter  provided.  To  get  8VDC  on  the  shutter  coil,  Vsh  must  be  adjust  to  about 
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9.5VDC  as  there  are  two  diode  drops  between  the  voltage  regulator  and  the 
shutter  coil. 

The  provision  for  manual  operation  at  a  remote  control  panel  is  provided 
via  P3,  but  if  no  control  panel  is  connected,  the  jumper  J1  must  be  installed  to 
provide  for  REMOTE-ONLY  operation.  Your  system  was  delivered  with  J1 
installed. 

In  some  cases  (as  in  the  Prontor  E40  shutter),  shutters  are  designed  to 
operate  on  a  opening  and  holding  voltage  of  24VDC.  The  Control  Board  can  be 
modified  slightly  to  accommodate  this  case  by  removing  U2  and  shorting  out  pins 
(SHI)  4  and  6,  (SH2)  12  and  10.  This  will  switch  in  the  starting  voltage  (24V)  for 
the  duration  of  the  ACTIVE-LOW  signal. 

Shutter  status  capability  is  provided  on  the  Control  Board  to  accommodate 
shutters  that  have  micro-switches  mounted  in  them  to  signal  a  fully  opened 
shutter.  These  switches  can  be  interfaced  to  the  host  via  buffers  (U1.C,  U1.D) 
and  are  ACTIVE-HIGH  (i.e.  they  are  high  when  the  switches  are  closed/shutter  is 
open).  In  addition,  an  LED  can  be  brought  out  to  the  manual  control  panel  via  P3 
to  give  a  physical  indication  of  the  shutter  status.  The  modified  PRONTOR 
shutter  on  your  system  does  not  have  status  feedaback. 


3.3.4  Intensifier  Circuit 

The  intensifier  gain  can  be  controlled  remotely  by  the  host  or  from  the 
manual  control  panel  via  P3.  Four  gain  settings  are  set  via  the  potentiometers 
VR1  -  VR4.  Gains  can  be  calibrated  by  using  a  constant  light  source  and 
adjusting  the  values  of  VR1  -  VR4  so  that  their  values  cut  the  gain  by  1/2  for 
each  setting.  The  maximum  dynamic  range  of  gain  adjustment  for  image 
intensifiers  is  usually  on  the  order  of  8-14. 

Remote  gains  from  the  HOST  must  be  clocked  into  a  latch  using  the 
STROBE*  signal.  DATA  is  latched  on  the  negative  going  transition.  To  program 
this  interface,  set  the  next  data  state  with  the  STROBE*  signal  high,  then  set  the 
STROBE*  low  and  high  again.  This  will  clock  in  the  next  gain  state. 

For  remote-only  operation,  J3  should  be  installed  which  keeps  the  input 
latch  selected  on  the  remote  data  rather  than  allowing  manual  selecting  of 
remote/manual  gain  settings. 


3.3.5  Intensifier  Power 

Intensifier  power  can  be  controlled  remotely  by  the  host  via  the 
REM:INT_POWER  line.  This  signal  is  ACTIVE-HIGH:  and  LOW  state  disables 
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the  intensifier  power,  and  a  HIGH  state  enables  it.  Intensifier  power  will  only  be 
enabled  when  BOTH  the  POWER  state  is  HIGH  and  the  LIGHT_DETECTOR 
state  is  high.  This  provides  a  safety  mechanism  for  protecting  the  image 
intensifier  tube  which  can  be  damaged  easily. 

Manual  control  of  the  intensifier  power  is  available  through  P3,  but  J4 
should  be  installed  if  the  Control  Board  is  going  to  be  used  in  a  remote-only 
configuration. 

Current  through  the  intensifier  is  monitored  and  returned  via  the 
INT:STATUS  bit.  Because  this  is  buffered  through  a  Schmidt  Inverter  for 
interfacing  purposes  (U1.F),  this  signal  is  ACTIVE-LOW:  i.e.  the  intensifier  has 
power  when  this  signal  is  LOW,  and  does  not  have  power  when  the  signal  is 
HIGH. 


This  status  bit  is  useful  in  determining  if  the  Intensifier  circuit  is  working 
correctly  and  to  confirm  whether  or  not  the  Light  Override  has  disabled  the 
intensifier. 


3.3.6  Light  Detector 

A  photo  resistive  light  element  is  supplied  with  the  camera  and  is  mounted 
in  a  LEMO  connector  hanging  off  the  front  of  the  camera.  This  detector  can  be 
mounted  anywhere  in  the  dome  or  taped  to  the  lens  of  the  instrument.  It  should 
be  in  position  to  easily  detect  changes  in  ambient  light  level. 

The  photo  resistive  element  is  connected  to  a  voltage  follower  (U7.B)  and 
subsequently  buffered  through  a  Schmidt  Inverter.  This  signal  can  be  read  by 
the  host  through  the  LIGHT_DETECTOR  signal.  A  HIGH  signal  means  that  the 
ambient  light  level  is  dark  enough  to  allow  safe  operation  of  the  image  intensifier, 
and  a  LOW  signal  means  that  there  is  too  much  light  for  safe  operation. 

The  trigger  point  of  this  circuit  is  determined  by  adjusting  the  value  of  the 
potentiometer  VR4.  KEO  recommends  setting  this  potentiometer  to  enable  the 
image  intensifier  around  civil  twilight  (or  solar  depression  of  6°). 
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Chapter  4:  Software 


4.1  Overview 

The  software  platform  to  operate  ASIP  is  based  upon  the  Linux  operating 
system.  We  chose  this  mainly  for  its  reliability,  cost,  and  built-in  network 
features.  The  available  camera  driver  software  at  the  time  only  supported  the 
Red  Hat  7.1  distribution  of  Linux.  The  application  software  was  developed  and 
coded  in  C  for  maintainability  and  portability.  This  executable  program,  called 
piAuto,  only  requires  two  text  files  for  its  operation.  One  file,  param.txt,  describes 
the  configuration  of  the  filters  and  the  desired  sequencing  of  those  filters,  in  a 
one-minute  acquisition  cycle.  The  other  file,  schedule.txt,  describes  the  start  and 
stop  times  for  unattended  operation.  The  acquired  image  data  are  written  to 
hard  disk  as  data  files  in  both  raw  scientific  grade  format  and  in  quick  browser 
compatible  JPEG  format.  Detailed  analysis  of  the  raw  image  data  is  available 
with  the  GUI-based  IDL  program  allsky.pro.  Perhaps  the  most  salient  feature  is 
the  ability  to  control  and  access  real-time  ASIP  data  when  a  network  connection 
is  available. 


4.2  Running  the  Acquisition  Software:  piAuto 

4.2.1  Login  and  Using  X-Window 

As  with  any  Linux  or  UNIX-based  operating  system,  the  usual  procedure  is 
to  login  and  launch  X-windows,  then  interact  with  the  computer  via  shells  and 
other  GUI  displays.  This  manual  assumes  that  the  operator  has  some  familiarity 
with  Linux  and  X-Windows.  Our  Red  Hat  7.1  distribution  utilizes  GNOME  as  the 
X-windows  manager  and  GNOME  encapsulated  bash  flavor  shells.  Those  not 
familiar  with  this  environment  can  source  a  wealth  of  information  from  the 
internet.  At  the  completion  of  software  system  boot-up  the  user  will  be  prompted 
with  a  GUI-based  login  and  password  prompt.  For  our  system  it  is  “root”  and 
“aurora”  respectively.  This  will  automatically  launch  the  X-windows  display 
manager.  Technically,  the  acquisition  software  piAuto  can  run  from  any  single 
bash  shell  and  without  X-windows.  The  advantage  of  having  multiple  bash 
windows  is  you  can  manage  other  required  applications  such  as  text  editors  to 
change  the  configuration  and  schedule  files.  You  can  use  emacs,  vi  or  any  other 
installed  text  editor  derivatives.  This  is  a  matter  of  personal  preference  and  the 
choice  is  left  up  to  the  operator.  So  with  the  X-windows  display  manager 
opened,  we  require  one  bash  shell  opened  by  clicking  on  the  gnome-terminal 
icon  in  the  shape  of  a  barefoot.  From  this  shell  you  can  spawn  many  other 
displays. 
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4.2.2  Managing  the  Display 

X-windows  provide  many  ways  to  display  the  operation  of  the  camera 
during  data  acquisition.  We  will  suggest  here  how  one  can  setup  up  the  display 
to  monitor  the  status  of  the  acquisition  program  piAuto  and  the  display  of  various 
wavelengths  in  real-time.  This  is  meant  for  real-time  viewing  and  operation  while 
the  user  is  in  front  of  the  imager  computer.  Network  or  remote  operation  will  be 
discussed  later.  At  a  minimum  a  bash  shell  window  is  available  to  run  the  piAuto 
program.  But  before  starting  the  acquisition,  the  user  will  want  to  setup 
displaying  the  raw  imager  data  sorted  by  filter.  This  is  accomplished  by 
displaying  the  latest  filter  specific  PGM  files  generated  by  the  piAuto  program. 
PGM  files  can  be  displayed  using  the  shareware  program  “xv”.  In  the  polling 
mode  it  automatically  updates  the  screen  when  the  PGM  file  is  updated.  Figure 
4-1  shows  a  text  script  file  that  generates  image  displays  for  all  five  available 
filters.  Specially,  it  places  the  6300A  filter  in  the  upper  right  corner  and  the 
5577A  filter  in  the  lower  right  corner.  The  other  three  filters,  4278A,  7774A  and 
6560A,  initially  come  up  iconified  on  the  bottom  task  bar.  It  is  left  up  to  the  user 
to  click  on  its  icon  and  open  and  position  the  display  for  these  three  filters.  Of 
course  at  anytime  during  the  course  of  the  acquisition,  the  user  can  manipulate 
these  individual  filter  display  windows.  This  script  can  be  launch  from  the 
opened  bash  shell  window  prompt  by  typing:”./root/camctl/display.sh”. 

#!/bin/bash 

#  This  file:  display.sh 

xv  -poll  -geometry  +675+0  6300. pgm  & 
xv  -poll  -geometry  +675+350  5577.pgm  & 
xv  -poll  -iconic  4278. pgm  & 
xv  -poll  -iconic  7774. pgm  & 
xv  -poll  -iconic  6560. pgm  & 

Figure  4-1  Filter  Display  Script:  display.sh 


The  typical  screen  display  might  look  like  Figure  4-2.  The  two  primary 
wavelengths  of  interest,  6300A  and  5577A,  are  placed  to  the  right  by  default.  An 
optional  wavelength  is  displayed  in  the  top  center.  Then  the  primary  bash  shell 
window  is  stretched  horizontally  to  accommodate  wider  text  line  displays.  Inside 
this  bash  window  the  piAuto  program  can  be  launched.  As  the  program  is 
running,  information  for  each  acquisition  is  displayed  and  scrolled  off  screen  as 
the  data  collection  progresses.  What  can  be  displayed  in  the  available  display 
areas  could  be  a  large  viewable  clock  or  a  small  editor  window  for  either  the 
param.txt  or  schedule.txt  files.  Alternatively,  you  can  move  the  current  display 
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Figure  4-2  Typical  Screen  Display 


4.2.3  Configuring  Camera  Configuration  File:  param.txt 

The  parameter  file  is  located  under  the  subdirectory  /root/camctl  and  is  an 
editable  text  file  read  by  the  piAuto  acquisition  program.  The  first  line  of  the  file 
designates  three  characters  as  a  location  or  experiment  reference.  The  second 
line  specifies  the  filter  wavelength  sequentially  placed  in  the  filter  wheel,  starting 
with  position  number  1 .  A  “9999”  designation  is  to  used  specify  no-filter  in  that 
position.  Following  these  first  two  required  lines  are  individual  lines  that  each 
represent  a  single  image  acquisition  entry  referenced  as  a  time  offset  within  a  60 
second  cycle  by  the  number  in  the  first  column.  The  second  column  specifies  the 
filter  position  to  use.  The  third  and  fourth  columns  represent  the  initial  intensifier 
gain  and  exposure  setting,  respectively.  The  intensifier  gain  ranges  from  a 
minimum  of  0  to  a  maximum  of  3.  The  exposure  time  units  are  entered  as  0.1 
seconds.  Figure  4-3  is  an  example  of  our  typical  routine  mode  configuration.  We 
cycle  all  five  available  filters  sequentially  at  12-second  intervals,  all  with  gain  3 
intensifier  and  3  second  starting  exposures.  This  will  be  automatically  adjusted 
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for  each  entry  in  the  next  minute’s  cycle.  “NYA”  designates  Ny  Alesund  and  note 
that  filter  position  six  has  no  filter. 

NYA 

6300  5577  4278  7774  6560  9999 
0  1  330 
12  2  3  30 
24  3  3  30 
36  4  3  30 
48  5  3  30 


Figure  4-3  Routine  Acquire  Example  of  /root/camctl/param.txt 


Another  mode  commonly  used  is  when  a  high  time  resolution  is  required.  In  this 
case  several  frames  of  the  same  filter  are  acquired  within  the  60-second  cycle. 
Figure  4-4  is  an  example  of  covering  high  time  resolution  for  5577A  but  requiring 
less  frequently  6300A  frames.  The  6300A  frames  occur  on  the  minute  and  on 
the  half-minute,  while  the  5577A  fills  the  rest  of  the  60-second  cycle  at  5  second 
intervals.  So  every  minute  we  have  a  total  of  ten  5577A  and  two  6300A  images. 

NYA 

6300  5577  4278  7774  6560  9999 
0  1  320 
5  2330 
10  2  3  30 
15  2  3  30 
20  2  3  30 
25  2  3  30 
30  1  3  20 
35  2  3  30 
40  2  3  30 
45  2  3  30 
50  2  3  30 
55  2  3  30 


Figure  4-4  Fast  Acquire  Example  of  /root/camctl/param.txt 


Any  sequence  can  be  accommodated  as  long  as  enough  time  is  allocated  to 
move  the  filter  wheel  (normally  up  to  two  seconds)  after  the  exposure  time  has 
elapsed,  otherwise  the  next  entry  or  entries  will  be  skipped  if  the  actual  time 
exceeds  the  indexed  offset  times. 
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4.2.4  Configuring  the  Schedule  File:  schedule.txt 

The  schedule  file  is  located  under  the  subdirectory  /root/camctl  and  is  an 
editable  text  file  read  by  the  piAuto  acquisition  program.  This  file  contains  a  start 
and  stop  time  for  each  line  and  must  be  entered  chronologically.  The  number  of 
start  and  stop  time  lines  is  effectively  unrestricted,  up  to  the  array  dimensions 
specified  in  the  piAuto.c  program  listing,  but  at  minimum,  there  should  be  at  least 
one  line. 

Each  line  has  two  time-date  pair  columns.  The  first  two  columns 
represent  the  time-of-day  and  date  for  the  start  time  and  last  two  columns 
represent  the  time-of-day  and  date  for  the  corresponding  stop  time.  Time-of-day 
is  in  hhmmss  format  and  date  is  in  yymmdd  format.  Figure  4-5  shows  three  lines 
of  a  schedule.txt  file  representing  three  start  and  stop  time  pairs.  Using  this 
schedule,  the  acquisition  starts  on  November  22,  2002  at  15:11:00  UTC  and 
stops  at  22:06:00  UTC  the  same  day.  The  next  acquisition  period  starts  on 
November  29,  2002  at  13:48:00  UTC  and  stops  on  November  30,  2002  at 
01:23:00  UTC.  The  last  acquisition  starts  on  November  30,  2002  at  12:2000 
UTC  and  stops  on  December  1 , 2002  at  05:00:00  UTC. 

151100  021128  220600  021128 

1 34800  021129  012300  021130 

1 22000  021130  050000  021201 


Figure  4-5  Sample  Schedule  File  with  3  Start  and  Stop  Entries 


4.2.5  Executing  and  Monitoring  piAuto 

The  acquisition  program  piAuto  can  be  started  if  both  the  param.txt  and 
schedule.txt  files  have  been  edited  properly.  To  launch  the  application,  you  must 
be  in  a  bash  shell  under  the  subdirectory  /root/camctl.  To  start  the  program,  type 
“./piAuto”.  Be  sure  to  place  the  dot  and  slash  character  before  “piAuto”.  At  this 
point  everything  should  be  automated.  The  operator  requires  no  further  action 
unless  he  needs  to  stop  the  program  or  change  either  the  param.txt  or 
schedule.txt  files.  Details  of  the  program  execution  will  be  displayed  on  the  bash 
shell  output  screen  and  are  described  below. 

The  program  first  initializes  the  CCD  camera  hardware  and  waits  till  the 
CCD  temperature  drops  below  -25C.  It  will  display  the  current  temperature  as  it 
waits  to  reach  this  threshold  temperature.  Then  the  program  proceeds  to  read 
the  schedule.txt  file  followed  by  the  param.txt  file.  If  the  current  time  is  within  one 
of  the  schedule  acquisition  periods,  then  it  will  begin  acquiring  images,  otherwise 
it  will  display  a  message  “Waiting  for  Start  Time:  xxxx”  and  readout  the 
instantaneous  CCD  temperature  continuously  until  the  next  available  start  time 
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has  been  reached.  When  a  stop  time  has  been  reached  it  will  proceed  to  wait  for 
the  next  available  start-stop  period  from  the  schedule  table  and  repeat  for  each 
period  until  it  has  reached  the  end  of  the  schedule  table.  The  piAuto  program 
terminates  when  it  displays  “Finished  List  -  Terminating  Program!” 

Information  pertaining  to  each  frame  acquisition  will  be  displayed 
instantaneously  in  the  bash  shell  script  as  piAuto  cycles  through  all  the  filter 
sequences.  Figure  4-6  shows  a  typical  screen  output  for  a  single  frame 
acquisition.  The  first  line  describes  the  parameter  settings  and  data  output 
filename.  In  this  example,  the  “30:”  is  the  minute  cycle  offset  in  seconds  from 
param.txt,  “F:  6300”  is  the  filter,  ”G:  2”  is  intensifier  gain  2,  “E:  20”  is  exposure 
time  of  2  seconds,  and  the  filename  is  “021218_042030_6300_NYA.keo.  The 
next  two  line  prints  the  the  average  and  standard  deviation  statistics  based  on  all 
the  image  pixel  counts  in  that  particular  acquisition  frame.  The  upper  and  lower 
numbers  are  the  three  sigma  bounds  from  the  average  and  the  status  describes 
whether  the  image  is  “UNDEREXPOSED”,  “OVEREXPOSED”,  or  “NO  CHANGE 
NEEDED”.  The  last  line  displays  the  gain  and  exposure  adjustments  for  the  next 
minute  cycle  acquisition  and  the  current  CCD  temperature. 


30:  F:  6300  G:  2  E:  20  -  021218_042030_6300_NYA.keo 
Average:  12301.43  Std  Dev:  4361.86 
Upper:  16371  Lower:  8324  Status:  UNDEREXPOSED 
Computed  Adjustment  GAIN:  2  E:  35.75  Temp:  -40.00 

Figure  4-6  Typical  Run-time  Image  Acquisition  Information 

Should  it  become  necessary  for  the  operator  to  terminate  the  program  manually, 
he  can  type  the  program  abort  sequence,  “Control-C”  key  in  the  active  bash 
shell.  This  should  put  you  back  at  the  shell  prompt.  You  can  resume  operation 
by  re-running  “./piAuto”. 


4.2.6  Modifying  and  Compiling  piAuto.c 

The  source  code  for  the  piAuto  acqusition  program  is  written  in  the  C 
programming  language.  This  code  has  evolved  over  the  years  and  continues  to 
be  modified  as  needed.  The  source  file  piAuto.c  can  be  found  in  Chapter 
6:below. 

#  makefile 

#  Note:  this  makefile  expects  to  find  libpvcam.so  in  the  standard  library 

#  search  path,  and  both  pvcam.h  and  master.h  in  the  standard  include  search 

#  path. 
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MOTIFHOME  =  /usr/X1 1 R6 
LIBS  =  -L${MOTIFHOME}/lib  \ 

-L${OPENWINHOME}/lib\ 

-Ipvcam  \ 

-Ijpeg  \ 

-Im 

INCLUDE  =  -l$(MOTIFHOME)/include  -l$(OPENWINHOME)/include 
OPTIM  =  -02 
#OPTIM  =  -g 
CC  =  gcc 

FILES. h=  master.h  pvcam.h  complxw.h 

CFLAGS  =  $(OPTIM)  $(INCLUDE) 

PHOTO_OBJECTS  =  piAuto.o  SerialLib.o 

piAuto  :  ${PHOTO_OBJECTS} 

gcc  ${OPTIM}  -o  piAuto  ${PHOTO_OBJECTS}  ${LIBS} 

SerialLib.o :  SerialLib.c 

gcc  ${OPTIM}  -c  SerialLib.c 

%.o:  %.c  $(FLAGS.h) 
echo  ’making  $@’ 

$(COMPILE.c)  $< 


Figure  4-7  Makefile  to  Compile  piAuto.o 


Figure  4-7  shows  the  contents  of  the  “makefile”  needed  to  automatically  compile 
and  link  the  source  file  piAuto.c  with  the  associated  driver  and  library  files.  All 
one  needs  to  type  to  create  the  new  executable  piAuto  is  “make”  in  the 
subdirectory  /root/camctl.  This  will  most  likely  be  necessary  as  many  parameters 
such  as  binning  and  location  coordinates  are  currently  hard  coded  in  piAuto.c. 
These  should  be  moved  out  of  the  source  code  and  into  readable  text  files  read 
in  by  the  piAuto  program.  Expanding  param.txt  would  be  a  good  place  start. 


4.3  Data  Output  Files 

The  piAuto  program  generates  two  data  output  files  for  each  image 
acquisition  and  places  them  all  under  a  predefined  directory  and  subdirectory 
called  “/imagedir/yymmdd”,  where  yymmdd  varies  with  year,  month  and  day 
respectively.  Each  file  name  has  the  date,  time,  filter,  and  a  three-letter 
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identification  encoded  in  the  following  format:  yymmdd_hhmrnss_ffff_iii.ext, 
where  ext  is  either  “jpg”  or  “keo”.  These  extensions  describe  the  file  type.  For 
example,  the  file  “021218_235955_6560_NYA.keo”  is  a  raw  data  file  for  an 
image  that  was  acquired  December  18,  2002  at  23:59:55  UTC  using  a  6560A 
filter  at  Ny  Alesund.  The  corresponding  JPEG  file  would  be 
“021 21 8_235955_6560_NYA.jpg”. 

The  typical  file  sizes  in  bytes  are  summarized  in  Table  4-1.  Each  pixel 
digitized  from  the  CCD  is  a  16-bit  unsigned  integer  ranging  from  0  to  65535  and 
takes  up  two  bytes.  Note  that  the  JPEG  file  sizes  will  vary  based  on  the  actual 
pixel  values  whereas  the  raw  file  sizes  are  fixed  and  not  compressed.  The 
former  is  meant  as  an  instantaneous  means  to  quickly  lookup  images  without  any 


Binning 

Horizontal 

Vertical 

.*,jpg  JPEG  File 

*.keo  Raw  File 

Dimension 

Dimension 

(Typical) 

(Actual) 

1  x  1 

1340 

1300 

-200000  bytes 

3484000  bytes 

2x2 

670 

650 

27500  bytes 

871000  bytes 

4x4 

335 

-5000  bytes 

217750  bytes 

Table  4-1  Data  File  Sizes 


special  software  other  than  a  web  browser  while  the  later  provides  the  raw 
unaltered  data  for  further  analysis  and  manipulation. 


4.3.1  Low  Resolution  JPEG  files 

These  low-resolution  JPEG  files  take  little  disk  space  and  provide  an 
excellent  quick  image  lookup  without  any  special  analysis  or  processing 
software.  The  JPEG  compression  algorithm  is  applied  to  the  high  order  byte  of 
each  pixel  value  (top  8-bits  of  1 6-bits).  As  you  can  see  the  morphology  of  the 
aurora  in  Figure  4-8  is  preserved  quite  well  using  just  256  shades  of  gray.  The 
orientation  is  mirror  flipped  along  the  vertical  axis,  that  is  left  is  east  and  right  is 
west  and  the  top  is  north  and  the  bottom  is  south  when  the  camera  itself  is 
aligned  such  that  the  top  of  the  image  is  pointing  true  north. 


Figure  4-8  Sample  JPEG  Image:  030208_051512_5577_NYA.jpg 


4.3.2  Raw  Data  Files 

The  raw  data  files  are  used  for  scientific  analysis  and  contains  the 
unaltered  pixel  values.  They  do  take  a  considerable  amount  of  disk  space 
depending  on  the  binning  mode.  Like  most  image  file  formats,  the  rows  are 
stored  from  top  to  bottom  which  is  opposite  of  how  the  y-axis  is  oriented  in 
Cartesian  coordinates.  For  our  images  we  have  developed  an  embedded 
parameter  scheme  where  one  can  decode  information  related  to  this  image  in  the 
image  data  itself.  The  first  few  pixels  have  been  designated  for  this  purpose 
since  they  would  otherwise  be  useless  as  they  are  outside  of  the  optical  field  of 
view.  We  summarize  these  parameters  in  Table  4-2.  The  number  of  parameters 
can  be  expanded  as  necessary  to  accommodate  new  parameters.  Each 
parameter,  unlike  a  real  pixel  count,  is  encoded  as  a  two-byte  signed  integer 
value  ranging  from  -32768  to  32767.  Care  should  be  taken,  as  the  byte-order 
can  be  different  on  different  computer  platforms.  This  information  is  encoded  in 
piAuto.c,  the  source  file  for  the  acquisition  program,  piAuto.  Decoding  can  be 
found  in  the  various  IDL  routines  that  is  use  for  both  calibration  and  analysis. 
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Number 

Name 

Byte 

Offset 

Example 

0 

Year 

0 

2002 

1 

Month 

2 

12 

2 

Day 

4 

18 

3 

Hour 

6 

23 

4 

Minute 

8 

10 

5 

Second 

10 

55 

6 

Filter 

12 

6300 

7 

Gain 

14 

2 

8 

Exposure  (0.1  sec) 

16 

25 

9 

Lat-Deg 

18 

78 

10 

Lat-Min 

20 

55 

11 

Lat-Sec 

22 

24 

12 

Lon-Deg 

24 

348 

13 

Lon-Min 

28 

4 

14 

Lon-Sec 

30 

12 

15 

Altitude  (m) 

32 

63 

16 

CCD  Temp  (0.01  C) 

34 

-4100 

Table  4-2  Image  Parameters  Header  Information 


4.4  Using  IDL  to  Analyze  and  Display  Data 

The  software  tools  to  analyze  the  RAW  data  files  with  the  extension  “.keo” 
are  written  in  IDL  (Interactive  Data  Language).  This  commercial  data  analysis 
and  visualization  package  from  Research  Systems,  a  Kodak  company,  is  being 
use  by  our  research  collaborators  and  us.  Our  collaborators  contributed  and 
modified  several  pieces  of  the  code  as  it  has  evolved  over  the  years.  As  the 
code  was  written  to  accommodate  several  different  types  of  imagers,  we  have 
modified  its  content  to  support  our  particular  ASIP  image  formats. 

Use  of  the  IDL  software  tools  assumes  familiarity  with  installing  and 
running  IDL.  This  is  a  cross-platform  package  that  has  been  originally  developed 
under  Linux,  but  can  run  under  Windows  as  well.  Care  should  be  taken  about 
handling  system  differences,  such  as  byte  order  and  display  drivers  such  as  X- 
windows  vs.  Microsoft  Windows. 


31 


4.4.1  Procedures  for  Image  Annotation  and  Animation 

The  core  procedures  for  both  image  annotation  and  animation  can  be 
found  in  the  IDL  source  listing,  asiptools.pro  found  in  Chapter  6:below.  Routines 
used  for  calibration  is  also  included  in  this  listing  but  discussed  later.  The  main 
ones  are  described  here. 


S  Feb  2003 
05:15:12  UT 
5577A 
10.0s 
G:  1 


W 


My  Alesund,  Svalbard  S  AFOSR  All-Sky  Imager 


Figure  4-9  Annotated  Image  Display  Example 

The  procedure,  “tvlmage”  take  a  *.keo  filename  and  displays  the  image 
with  parameter  annotations.  IDL  allows  you  to  save  the  image  in  various  output 
formats,  such  as  GIF,  TIFF,  JPEG,  and  PNG.  One  caveat  is  that  IDL  version  5.3 
and  later  no  longer  support  GIF  format.  Figure  4-9  shows  an  annotated  image 
saved  as  a  PNG  file.  Note  that  the  image  orientation  is  flipped  along  the  vertical 
axis  and  properly  labeled. 

Probably  the  most  powerful  way  to  analyze  the  temporal  dynamics  of 
ASIP  data  is  with  animation  of  a  sequence  of  static  images.  This  is 
accomplished  with  the  routine  “makeMpeg”.  It  takes  two  arguments.  The  first  is 
a  text  list  of  image  files  that  make  up  a  sequence  of  images  to  be  analyzed 
(usually  of  the  same  filter).  The  second  argument  is  the  MPEG  movie  file  name 
that  will  be  created.  This  routine  effectively  takes  a  sequence  of  annotated 
images  and  builds  it  into  an  MPEG  file.  This  file  can  be  view  by  any  MPEG  movie 
player  software,  but  one  with  single-step  forward  or  reverse  and  frame  rate 
control  is  preferred.  One  shareware  Linux  version  recommended  is  the  package 
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“MpegTV”.  Sample  MPEG  files  of  ASIP  data  generated  with  makeMpeg  can  be 
retrieved  from  “http://www.fys.uio.no/~ning/movies”. 


4.4.2  Interactive  Analysis  Using  GUI-based  ALLSKY.PRO 

A  very  powerful  interactive  GUI-based  IDL  application  has  been  ported  for 
use  on  ASIP  data.  This  tool  allows  the  researcher  to  manipulate  and  display  the 
ASIP  data  interactively  and  project  calibrated  data  over  geographic  coordinates. 
The  interface  is  fairly  intuitive  but  some  of  its  key  features  will  be  described  here. 
The  source  code  can  be  found  in  Chapter  6:below.  Hardcopy  Postscript  file  can 
be  generated  by  this  application. 

The  single  panel  screen  displaying  raw  data  is  show  in  Figure  4-10.  When 
the  “QUICK  VIEW  ON”  button  is  “ON”  selecting  the  *.keo  file  in  the  File  List  slider 
window  will  display  that  file  will  all  the  relevant  parameters  above  and  below  the 
image.  The  white  background  does  not  represent  the  edge  of  the  field  of  view 
but  rather  a  clipping  of  the  lower  1/256  scaling  of  pixel  intensity.  This  mode 
allows  the  user  to  quickly  select  and  view  individual  image  frames  for  further 
analysis.  This  is  often  called  viewing  the  “untransformed”  all-sky  images.  It  does 
not  take  into  account  any  calibration  adjustments. 

The  second  type  of  view  accomplishes  all  the  “magic”  when  the  “QUICK 
VIEW  ON”  button  is  deactived  and  the  Graph  Xwindow  is  selected.  Here  the 
Altitude,  Scale,  and  Viewing  Altitude  values  are  used.  The  Altitude  is  the 
assumed  altitude  that  you  want  to  project  the  data  down  onto  geographic 
coordinates.  It  is  often  associated  with  the  emission  height  of  the  desired 
phenomenon.  Figure  4-1 1  shows  the  same  image  transformed  from  250km. 
The  observers  view  is  set  at  300km.  Note  that  the  edge  is  cut  off  at  20  degrees 
above  the  horizon.  Projecting  and  transforming  pixel  data  below  this  value  is 
undesirable. 


33 


Figure  4-10  Untransformed  Display  using  ALLSKY.PRO 


The  Scale  value  is  used  to  scale  the  calibrated  pixel  intensity  in  terms  of 
Rayleigh  units.  Points  of  interest  in  the  transformed  area  can  be  selected  using 
the  cursor  as  it  updates  both  the  position  in  latitude  and  logitude  coordinates  and 
the  Rayleigh  count  when  moving  over  the  display.  The  image  can  be  saved  as  a 
Postcript  file  for  printout  or  publication.  There  is  also  a  provision  in  the  code  to 
overlay  satellite  passes  so  other  sensor  data  can  be  compared  with  the  ASIP 
data.  All  the  results  of  the  calibration  process  have  been  incorporated  into 
allsky.pro  and  will  be  described  further  in  the  Chapter  5:below.  We  welcome 
suggestions  and  feedback  from  users  so  we  can  expand  on  this  application  by 
adding  more  features  for  analysis  and  visualization.  Perhaps  what  is  needed 
immediately  and  is  currently  being  worked  on  is  the  ability  to  track  specific 
features  and  measure  velocities.  It  can  be  done  by  manually  by  comparing  the 
difference  in  time  and  changes  in  latitude  and  longitude  coordinates. 
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Figure  4-11  Transformed  and  Calibrated  Display  using  ALLSKY.PRO 


35 


Chapter  5:  Performance,  Calibration,  and  Data 


5.1  Field  Evaluation 

This  ASIP  instrument  was  designed  for  field  use.  We  took  ASIP  to  Ny 
Alesund,  Svalbard,  installed  and  operated  it  during  two  winter  periods  between 
December  2001  and  February  2002  and  between  December  2002  and  March 
2003. 


5.1.1  Installation 

The  Norwegian  Polar  Institute  hosted  our  instrument  at  their  facility  in  Ny 
Alesund,  Svalbard  as  part  of  our  collaborative  research  effort  with  the  Physics 
Department  at  the  University  of  Oslo.  A  room  with  a  dome  and  mounting  poles 
was  already  provided.  We  had  to  make  mounting  brackets  to  fit  ASIP  onto  their 
configuration.  Final  adjustments  were  made  using  a  level  and  rotating  the 
camera  azimuthally  until  true  north,  using  a  starmap,  aligned  with  the  top  of  the 
displayed  image.  120Volt  power  on  UPS  was  available. 


Figure  5-1  Mounted  ASIP  at  Ny  Alesund 
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5.1.2  Host  Computer 


Our  initial  selection  criteria  for  ASIP’s  host  computer  system  was  to  be 
light  and  small  to  minimize  transportation  costs.  During  the  first  winter’s 
operation,  we  used  a  15-inch  flat  panel  LCD  monitor  and  a  “BiscuitPC”  type 
computer.  This  was  a  700MHz  Pentium  III  CPU  computer  the  size  of  a  large 
shoe  box,  but  had  moderate  hard  disk  space  (  20  Megabytes  )  and  limited 
archiving  support,  such  as  a  CDRW.  The  disk  had  to  be  cleared  monthly 
between  moon  down  periods.  As  a  result  we  then  opted  for  a  different  computer 
to  meet  these  shortfalls.  In  the  second  winter,  we  replaced  the  BiscuitPC  with  a 
miniaturized  version  of  a  fully  functional  desktop.  This  SV24  model  from  Shuttle, 
Inc.  is  a  1.0  GHz  CPU  configured  with  a  120  Gigabyte  hard  disk,  a  floppy  drive, 
and  a  CD-RW.  The  motherboard  has  built  in  graphics,  networking,  USB, 
FireWire,  and  one  PCI-slot  support.  Figure  5-2  shows  ASIP’s  host  computer  in 
its  final  operating  configuration.  Note  that  the  LCD  monitor  fits  well  on  top  of  the 
SV24  unit  and  takes  very  little  desktop  space. 


Figure  5-2  Host  Computer  for  ASIP 
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5.1.3  CCD  Temperature  &  Intensifier  Issues 


The  ideal  operating  temperature  for  the  CCD  is  -40C.  However  we  found 
out  that  the  vacuum  seal  had  leaked  in  the  CCD  evacuated  chamber  and 
maintaining  a  65C  differential  from  ambient  was  not  achievable.  The  unit  was 
returned  to  the  vendor  and  the  vacuum  was  resealed  using  nitrogen  backfilling. 
This  did  not  pose  a  problem  in  Ny  Alesund  because  the  ambient  was  often  well 
below  20C  in  the  room  with  the  dome.  However  this  does  require  external 
cooling  where  ambient  temperatures  exceed  25C,  as  often  is  the  case  when 
operating  in  tropical  climates. 

The  initial  delivery  of  the  instrument  from  Keo  used  a  modified  electronic 
circuitry  to  drive  the  new  Gen-Ill  image  intensifer  tube.  The  drive  electronics 
prevented  using  maximal  gain  setting  provided  by  Gen-Ill  newer  sensitivity. 
However  the  settings  used  in  Ny  Alesund  was  sufficient  to  detect  patches,  even 
as  the  highest  gain  setting,  3,  was  unusable.  This  deficiency  has  been  corrected 
with  a  new  Gen-Ill  driver  electronics  design.  It  has  been  fabricated  and  the 
schematics  included  here  in  this  manual,  but  has  yet  to  be  field  tested. 
Traditionally,  the  gain  settings  on  the  circuitry  should  be  adjusted  so  than  a 
change  in  gain  changes  the  sensitivity  by  a  factor  of  two,  but  in  our  case  was 
determined  to  be  a  factor  of  ten. 


5.1.4  Campaign  Support 

The  late  awarding  of  this  contract  and  the  subsequent  delay  of  the 
instrument  from  Keo  prevented  us  from  deploying  and  testing  ASIP  in  the  winter 
period  of  December  2000  and  February  2001.  Our  first  available  opportunity  to 
support  a  major  campaign  was  in  December  2001.  During  this  period  we 
operated  the  imager  both  in  the  routine,  one  filter  per  minute  mode,  as  well  as 
customized  high  acquisition  rates  of  multiple  same-filter  images  per  minute,  up  to 
twelve  images  per  minute.  At  the  same  time  data  was  made  available  via  the 
internet  to  researchers  in  near  real-time  to  support  operating  modes  for  the 
nearby  incoherent  scatter  radars.  This  same  support  was  repeated  in  February 
2002,  after  which  the  instrument  was  returned  to  Scion  facilities.  An  extension  of 
the  contract  was  requested  to  make  up  for  missing  the  first  campaign  and  would 
allow  us  to  test  out  remote  operation  of  the  instrument  via  the  internet.  This  was 
granted  and  we  deployed  the  instrument  back  to  Ny  Alesund  in  time  to  support 
campaigns  in  both  December  2002  and  January  2003.  Measurements  continued 
through  March  2003,  when  the  instrument  was  finally  delivered  to  AFRL  at 
Hanscom  AFB  as  required  at  the  closing  of  the  contract.  This  entire  winter’s 
worth  of  data  was  able  to  be  stored  on  the  computer’s  120G  hard  disk.  Both 
winter’s  data  were  archived  onto  CD’s  and  delivered  to  AFRL  along  with  analysis 
software  and  calibration  data. 
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5.1.5  Network  Operation 


A  key  design  feature  for  ASIP  camera  operations  is  the  ability  to  control 
the  imager  remotely  via  the  internet.  The  Linux  operating  system,  by  design 
provide  this  capability.  All  Linux,  and  UNIX  derivative  operating  systems,  allow 
remote  login  and  display  using  shells  and  X-windows.  During  the  first  winter,  the 
imager  data  as  it  was  being  acquired,  were  transferred  manually  when 
requested,  in  real-time  over  the  internet  to  researchers  to  view  the  quick  look-up 
JPEG  images.  During  the  second  winter,  remote  operations  were  tested.  We 
logged  into  the  computer  over  the  internet  via  “ssh”  and  edited  the  param.txt  and 
schedule.txt  files.  We  launched  the  piAuto  program  by  typing  “,/piAuto  > 
/dev/null”,  then  logging  out.  The  “/dev/null”  redirects  the  program  text  output  so  it 
won’t  be  displayed  anywhere.  We  were  able  to  retrieved  both  the  raw  and  JPEG 
data  files  using  “sftp”.  Additionally,  while  the  imager  was  acquiring  data,  we  ran 
the  following  shell  script  every  five  minutes  to  automate  sending  the  current 
imager  data  to  a  web  page  hosted  by  the  University  of  Oslo. 


#!/bin/sh 

#This  file:  transfer.sh 

todaydir=$(date  +%y%m%d) 
nowdir=$(date  +%y%m%d_%H%M)*.jpg 
file6300=$(date  +%y%m%d_%H%M)00_6300_NYA.jpg 

pingok=$(ping  -nc  1  129.240.86.90  |  grep  -c  '  0%  packet  loss') 

sleep  60 

cd  /imagedir 

if  [  -d  $todaydir  ];  then 
cd  $todaydir 

if  [  -f  $file6300  ]  &&  [  $pingok  ];  then 
ftp  -i  aurora.uio.no  «-EndFTP 
cd  www_docs/$todaydir 
mput  $nowdir 
EndFTP 
fi 

fi 

cd  ~ 


Figure  5-3  Script  to  Send  JPEG’s  to  Web  Server 
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5.1.6  Bare  CCD  Test 


We  had  the  opportunity  to  test  this  camera  technology  in  the  bare  CCD 
mode  without  the  image  intensifier.  This  was  conduction  in  March  2002  at 
Ascension  Island  along  with  other  AFRL  scientists.  A  sample  image  is  shown  in 
Figure  1-4  Bare  CCD  Mode  Data  Example  -  Spread-F  Bubbles.  As  expected,  the 
clarity  of  the  image  is  evident  when  the  graininess  effect  contributed  by  the 
image  intensifier  is  removed.  Of  course  the  trade  off  is  in  sensitivity  as  most  of 
the  bare  CCD  exposure  times  are  often  over  a  minute,  in  this  case,  two  minutes. 


5.2  Calibration 

The  following  sections  describe  the  various  calibration  techniques  required 
to  extract  geophysical  measurements  from  the  ASIP  camera.  Most  of  them  were 
conducted  in  the  field  with  a  known  light  source  standard.  The  calibration 
measurements  were  made  in  the  2x2  binning  mode.  The  details  for  these 
measurements  can  be  extracted  and  reconstructed  from  the  IDL  routines  found 
in  asiptools.pro  and  applied  to  the  actual  raw  imager  data  files  acquired  during 
the  calibration  process.  The  calibrated  results  are  embedded  in  the  GUI-based 
analysis  tool  allsky.pro. 


5.2.1  Spatial  Calibration  Using  Starmaps 


A  spatial  calibration  was  carried  out  to  correct  for  azimuthal  installation  offsets  and  optical 
distortions,  mostly  attributed  to  the  curvature  of  the  lenses. 

Figure  5-4  summarize  the  spatial  calibration  equation  and  constants. 
From  this  we  derived  the  optical  center  of  the  image  in  pixel  space  and  the  radial 
mapping  based  upon  best  fit  with  the  computer  generated  starmap  from  the 
program  Xephem  in  Figure  5-5.  Note  that  during  this  particular  installation  we 
were  fortunate  to  have  no  azimuthal  offset  which  is  often  not  the  case. 
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Figure  5-4  Starmap  Calibration 
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XEphem  Alt/Az  Sky  View 
Ny  Alesund,  Norway 

RA:  1705:55.9  Julian  Date:  2452261.93721 

Declination:  78  55:35  Sidereal  Time:  17:05:43 

Epoch:  2000.00  GridSteps:  UTC  Date:  12/1 8/2001 

Altitude:  9000:00  Alt:  20:0000  UTC  Time:  10:2935 

Azimuth:  180:00:00  Az:  20:0000  Latitude:  78:55  24  N 

Field  Width:  180:00  Longitude:  11:55:48E 


Created  by  XEphem  Version  3.4  4  Dec  2000 
(c)  1996-2000  Elwood  Charles  Downey 
http  7/www.  Cle  arSky  I  nstitute .  com 
Generated  Tue  Apr  29  20:52:35  2003  UTC 


Figure  5-5  XEphem  Starmap  Output 


5.2.2  Light  Source 


The  light  source  used  to  make  absolute  calibration  was  designed  by  Keo 
Consultants  and  owned  by  our  collaborating  colleagues  at  the  University  of  Oslo, 
Department  of  Physics.  It  was  available  for  us  to  use  in  field  where  the  ASIP 
calibaration  was  conducted.  Below  are  the  two  tables  required  to  calculate  the 
light  output  in  units  of  Rayleighs  per  Angstrom  (R/A).  There  are  two  dial  settings 
on  the  light  source,  knobs  A  and  B,  that  varies  the  relative  attenuation  from  full 
open  or  maximum  light  output.  Table  5-1  assigned  an  attenuation  factor  that  is 
multiplied  from  the  maximum  output  value  derived  from  Table  5-2  as  function 
wavelength.  Intermediate  wavelength  values  can  be  interpolated. 


Norway  Light  Source 
Relative  Attenuation  Calibration 


A  — 

#2  #1  #0 


#11 

1.000E+00 

1.900E-01 

2.100E-02 

#10 

5.367E-01 

1.020E-01 

1.127E-02 

#9 

2.821  E-01 

5.360E-02 

5.925E-03 

#8 

1.487E-01 

2.826E-02 

3.123E-03 

#7 

7.593E-02 

1.443E-02 

1.595E-03 

#6 

3.934E-02 

7.475E-03 

8.262E-04 

#5 

2.109E-02 

4.007E-03 

4.429E-04 

#4 

1.073E-02 

2.040E-03 

2.254E-04 

#3 

5.080E-03 

9.652E-04 

1 .067E-04 

#2 

2.628E-03 

4.992E-04 

5.518E-05 

#1 

1.510E-03 

2.869E-04 

3.170E-05 

#0 

O.OOE+OO 

0.00E+00 

0.00E+00 

Table  5-1  Norway  Light  Source  Relative  Attenuation 
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NORWAY  Light  Source  Calibration 

(Set  at  Maximum  Output) 


Wavelength 

(nm) 

SLS  Output 
(R/A) 

350 

2.64E+02 

360 

4.12E+02 

370 

7.83E+02 

380 

1.41E+03 

390 

2.46E+03 

400 

3.46E+03 

410 

4.88E+03 

420 

5.89E+03 

430 

7.11E+03 

440 

8.34E+03 

450 

9.82E+03 

460 

1.23E+04 

470 

1 .44E+04 

480 

1.71E+04 

490 

1.99E+04 

500 

2.26E+04 

510 

2.65E+04 

520 

2.99E+04 

530 

3.35E+04 

540 

3.81  E+04 

550 

4.19E+04 

560 

4.66E+04 

570 

5.09E+04 

580 

5.59E+04 

590 

6.15E+04 

Wavelength 

(nm) 

SLS  Output 
(R/A) 

600 

6.62E+04 

610 

7.01  E+04 

620 

8.04E+04 

630 

8.61  E+04 

640 

9.15E+04 

650 

9.56E+04 

660 

1.03E+05 

670 

1.09E+05 

680 

1.15E+05 

690 

1.24E+05 

700 

1.31E+05 

710 

1.40E+05 

720 

1 .45E+05 

730 

1 .46E+05 

740 

1.47E+05 

750 

1.45E+05 

760 

1.45E+05 

770 

1 .48E+05 

780 

1 .40E+05 

790 

1.39E+05 

800 

1.28E+05 

Table  5-2  Norway  Light  Source  at  Maximum  Output 


5.2.3  Vignetting 

This  is  a  characteristic  intrinsic  to  commercial  lenses.  The  main 
contributor  to  system  vignetting  is  the  primary  fish-eye  lens.  We  took  a  light 
source  and  scanned  it  from  the  center  of  the  image  to  its  edge.  A  composite 
image  superimposing  just  the  maximum  pixel  values  is  show  in  Figure  5-6.  Note 
that  the  discontinuity  near  45  degrees  is  to  be  interpolated.  A  line  plot  of  its 
intensity  results  in  a  linear  equation  to  the  first  order  characterizing  the  slope  of 
intensity  as  a  function  of  zenith  angle.  Basically  the  light  source  is  reduced 
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linearly  by  a  factor  of  20.93  from  overhead  to  the  edge  of  the  field  of  view.  Thus 
the  vignetting  correction  divisor  VIGFN  is: 

VIGFN  =  1  -  0.952252  *  ( zenith  angle  /  90.) 


Figure  5-6  Composite  Image  Showing  Vignetting 


5.2.4  CCD  Bias 

The  CCD  bias  is  the  number  of  counts  attributed  by  the  thermal  noise 
within  the  CCD  sensor  electronics.  We  found  this  number  to  average  out  to: 

CCD  BIAS  =  71 .79  counts 

This  measurement  was  taken  with  the  intensifier  and  shutter  turned  off. 

5.2.5  Dark  Noise 

The  dark  noise  counts  are  the  contribution  from  the  image  intensifer 
electronics.  As  such  they  are  dependent  on  the  gain  setting  of  the  image 
intensifer.  Table  5-3  summarize  the  average  counts  measured  with  the 
intensifier  on  for  one  second,  the  shutter  closed,  and  the  removal  of  the  CCD 
bias. 


Gain 

Counts 

0 

11.16 

1 

125.92 

2 

1147.72 

Table  5-3  Dark  Noise  Measurements 


5.2.6  Counts  to  Rayleigh’s  Conversion 

The  desired  scientific  unit  of  measure  of  energy  from  optical  observations 
are  Rayleigh  units.  With  the  light  source  described  above,  we  conducted  a 
series  of  measurements  to  derive  the  following  calibration  chart  describing  the 
ASIP  system  response  to  light  at  different  wavelengths  and  intensifer  gains.  The 
measure  counts  are  a  function  of  filter  wavelength,  filter  bandwidth,  intensifer 
gain  and  exposure  time.  All  values  are  normalized  to  unity  exposure  time  of  one 
second. 
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Table  5-4  summarize  the  correction  divisor  to  counts  (normalized  to  unity 
exposure)  in  order  to  obtain  the  absolute  Rayleigh  value. 


Filter 

Stock  # 

Bandwidth(A) 

Gain  0 

Gain  1 

Gain  2 

6300 

Lot  0501 

16 

0.653516 

7.88324 

74.9065 

5577 

Lot  0601 

16 

0.709080 

8.36213 

81 .2303 

4278 

Lot  4801 

25 

0.398004 

4.82669 

42.9298 

7774 

Lot  0501 

16 

0.461177 

5.55789 

50.5229 

6560 

Lot  0401 

30 

0.705478 

8.60690 

79.8694 

Table  5-4  Counts  to  Rayleigh  Conversion 


5.3  Data 

During  the  course  of  developing  and  evaluating  the  ASIP,  we  have 
acquired  two  winter’s  worth  of  ASIP  data  at  a  unique  location  covering 
measurements  of  both  the  dayside  cusp  and  nighttime  aurora  oval.  Ongoing 
efforts  will  continue  at  analyzing  this  unique  data  set  with  other  measurements. 
This  is  the  first  time  four  inch  optics  were  used  to  acquire  images  from  five 
different  filters  on  a  routine  basis.  The  traditional  6300A  and  5577A  wavelengths 
have  been  complemented  with  4278A,  7774A,  and  6560A  wavelengths.  With  the 
same  four  inch  optics  during  campaign  modes,  we  provided  relative  high  frame 
rates  of  up  to  twelve  exposures  per  minute  for  any  combination  of  filters.  This  will 
allow  us  to  resolve  temporal  events  in  more  detail  than  the  traditional  one  filter 
per  minute  rate. 

The  quick  look  up  JPEG  images  and  the  raw  data  image  files  stored  on 
the  host  computer’s  hard  disk  have  been  archived  onto  700  MB  Data  CD’s.  The 
complete  set  for  the  two  winter  periods  are  distributed  in  five  CD  cases.  Two 
complete  sets  are  to  be  delivered  to  AFRL.  The  contents  are  summarized  in 
Table  4-1. 


CASE 

NUMBER 

DATE 

BINNING 

MODE 

NUMBER 
OF  CD’s 

1 

13dec01-19dec01 

2x2 

38 

2 

12jan02-21jan02 

2x2 

51 

3 

06feb02-11feb02 

27 

4 

06dec02-28jan03 

4x4 

48 

5 

28jan03-07mar03 

4x4 

30 

S  Total  CD’s  per  Set:  194  | 

Table  5-5  Summary  of  Data  CD’s 
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The  camera  operated  during  the  moon  down  periods  at  Ny  Alesund, 
Svalbard  during  it’s  winter  season  when  the  sun  remains  below  the  horizon.  The 
tables  for  the  start  and  stop  times  are  listed  in  the  schedule.txt  files  found  in 
Chapter  6:below.  Any  missing  periods  may  have  been  the  result  of  intentionally 
not  operating  the  camera  because  the  sky  conditions  were  unfavorable  for 
collecting  optical  data,  i.e.  clouds  or  snowing. 

The  quick  look  up  JPEG’s  and  some  animation  files  can  also  be  found  and 
downloaded  from  the  web  site:  http://www.fvs.uio.no/~ninq 

The  IDL  software  tool  allsky.pro  have  been  used  to  analyze  this  data  set 
and  generate  calibrated  hardcopy  outputs.  Two  hardcopy  outputs  normally  in 
Postscript  format  are  displayed  here  as  TIFF  files  and  show  the  comparison 
between  looking  at  two  separate  wavelengths  at  different  intensity  scales  and  at 
different  assumed  altitude  of  emissions. 
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DATE  18Dec2001  TIME  102420  FILTER  6300  ALTITUDE  250.0  FILE  01l218_102420_6300_NYA.keo 


RAYLEIGH 


0  500  1000  1500  2000  2500  3000 


Figure  5-7  Sample  Hardcopy  Output  of  6300A  at  250km 
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DATE  l8Dec20Dl 


TIME  1024:25 


FILTER  5577 


ALTITUDE  120.0  FILE  01  l2lB_102425_5577_NYA.keo 


RAYLEIGH 


0  200  400  600  800  1 000 

Figure  5-8  Sample  Hardcopy  Output  of  5577A  at  120km 
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Chapter  6:  Source  File  Listings 


6.1  Acquistion  Program:  /root/camctl/piAuto.c 

/*  This  file:  piAuto.c  version  1.1  pn  28nov02  7 

/* 

29nov02  /dev/cuaO  ->  /dev/ttySO 

corrected  JPEG  CF  255/65355  ->  255/M AX_COU NTS 
07dec01  Built  on  anfauto.c  template  from  ANF  Imager  upgrade 
7 

#include  <termios.h> 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <unistd.h> 

#include  <fcntl.h> 

#include  <sys/signal.h> 

#include  <math.h> 

#include  <limits.h> 

#include  <string.h> 

#include  <asm/io.h> 

#include  <time.h> 

#include  "jconfig.h" 

#include  "jpeglib.h" 

#include  "SerialLib.h" 

#include  "master.h" 

#include  "pvcam.h" 

#define  CCD_X_PIXELS  1340 
#define  CCD_Y_PIXELS  1300 
#define  CCD_X_BINNING  4 
#define  CCD_Y_BINNING  4 
#define  CCD_BYTES_PER_PIXEL  2 

#define  IMAGE_X_SIZE  CCD_X_PIXELS  /  CCD_X_BINNING 
#define  IMAGE_Y_SIZE  CCD_Y_PIXELS  /  CCD_Y_BINNING 

#define  BUFSIZE  IMAGE_X_SIZE  *  IMAGE_Y_SIZE  //  short  unsigned  (2- 
byte) 
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#define  PARAMFILE  "param.txt" 

#define  TEMPFILE  "current.filename" 

#define  MAX_COUNTS  65535  //  HRP:  4095 

#define  SIGMA  3.0 

#define  MAX_EXPOSURE  100.  //  HRP:  100. 

#define  MIN_EXPOSURE  2. 

#define  MAX_GAIN  3  //  Gain  3  not  usable  on  AFOSR  imager!  -  AFRL  OK! 

#define  MIN_GAIN  0 

#define  _POSIX_SOURCE  1  /*  POSIX  compliant  source  7 

struct  entry  { 
int  filter_pos; 
int  gain; 
int  exp_time; 

}  entry[30]; 

void  do_entry(); 
void  writejpeg(); 

int  hh,mm,ss,yy,mo,dd; 

time_t  now, lasttime, starttime, stoptime, startlist[365],stoplist[365]; 
int  timejdx; 
int  i,j; 
long  k; 

struct  tm  *tmtime,  tmStartTime,  tmStopTime; 

FILE  *fp,*fpOutput,*fpPGM,  *fptemp; 
char  filter[6][1 0]; 

int  sec_start,filter_pos,gain,exp_time; 

int  cycle_index[60]; 

unsigned  int  seconds_in_cycle; 

int  entryjdx,  schedule_idx,  current_tm_day; 

char  sDirname[30],sFullFilename[70]; 

char  sPgmFilename[10]; 

int  nparam,  nNextFilter,  nCurrentFilter=-1 ,  nStatus; 
int  nNextGain,  nCurrentGain=-1 ; 
int  nLight=0,  nlntPower=0,  nNextPower; 
int  nShutter=0,  nNextShutter; 

//PI  Camera  variables 
boolean  status, exposing; 
rgn_type  rgn; 
unsigned  short  x,y; 
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inti  6  hCam; 

uns16_ptr  pimg; 

uns32  stream_size,  bytes; 

inti  6  expStatus; 

static  inti  6  tempC; 

static  inti  6  ccs_status; 

static  boolean  cam_status  =  FALSE; 

long  imagePixels; 

char  c; 
int  fd; 

short  unsigned  buf[BUFSIZE];  //  2x2  bin:  435500,  4x4  bin:  1 08875 
short  int  *ip; 

int  int_on_flag  =  0; 

FILE  *f; 

//FILE  *f=stdin; 
int  fd; 
int  tot; 

unsigned  char  ctIByte.ucByte; 

char  outbyte; 

int  port_addr,  chip; 

unsigned  char  ucdata; 

short  unsigned  uidata,  uHiByte,  uLoByte; 

char  sFilename[70],sSet_lntgain[5],sSet_Filpos[6],sObs[1 0]; 
char  sFilePath[30]  = 
char  sLocation[4]  =  "XXX"; 

unsigned  lat_deg,lat_min,lat_sec,lon_deg,lon_min,lon_sec,alt_m; 

unsigned  *pBufferldx; 

//  Statistics  variables 
float  ave,sdev; 

float  data[1 00];  //  Max  samples:  1 00 

void  moment(),findindex(); 
unsigned  randindex[100]; 
int  upper, lower; 

int  newgain; 
float  newexp; 

main(argc,argv,env) 
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int  argc; 
char  *argv[]; 
char  *env[]; 

{ 

printf("\r\npiAuto  for  AFOSR  Imager  at  Ny  Alesund,  Svalbard  -pn  28nov02 
v1.1\n\n"); 

//  Initialize  Serial  Port 

if  ( openSeriai("/dev/ttySO") ) 

printf("Successfully  opened  the  comm  port.. An"); 
else  { 

printf(''Error  opening  comm  port,  terminating  program!\n"); 
exit(-l); 

} 

//  Make  sure  intensifier  is  OFF! 
nStatus  =  intensifierPower(O); 

nStatus  =  intensifierGain(3);  //  Lowest  setting  -  inverted 

//  Initialize  the  PVCam  Library 
if  (!pLpvcam_init()) 

{ 

printf("Error  initializing  PVCAM\n"); 
return; 

} 

pI_cam_open(  "rspipciO",  &hCam,  OPEN_EXCLUSIVE  ); 
if  (pl_error_code()  !=  0  )  { 

printf(  "Camera  Not  Found,  Or  Communication  Error\n"); 
exit(O); 

} 

pl_ccd_set_tmp_setpoint(hCam,-4000);  //Set  to  -40  C 

pl_ccd_get_tmp_setpoint(hCam,&tempC); 

printf("Set  Temperature:  %5.2f  C\n",(float)tempC/100.); 

printf(" Waiting  to  reach  at  least  -25C  to  operate... \n\nM); 

pLccd_get_tmp(hCam,&tempC); 

while  ( tempC  >  -2500  )  { 

pl_ccd_get_tmp(hCam,&tempC); 

printf("Current  Temperature:  %5.2f  C\r",(float)tempC/100.); 

} 

printffMinimum  temperature  reached!\n\n"); 
pl_ccd_get_ser_size(hCam,  &x);  //  Get  Sensor  Dimensions 
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pl_ccd_get_par_size(hCam,  &y); 
printf("Sensor  size:  %d  x  %d\n",  x,  y); 

//  rgn.sbin  =  CCD_X_BINNING;  rgn.s1=0;  rgn.s2  =  x/  rgn.sbin  - 1; 
//  rgn.pbin  =  CCD_Y_BINNING;  rgn.p1=0;  rgn.p2  =  y  /  rgn.pbin  - 1; 
rgn.sbin  =  CCD_X_BINNING;  rgn.s1=0;  rgn.s2  =  x  - 1; 
rgn.pbin  =  CCD_Y_BINNING;  rgn.p1=0;  rgn.p2  =  y  - 1; 

printf ("Store  image:  X=%d  Y=%d  with  %d  x  %d  binning\n", 
rgn.s2+1  ,rgn.p2+1  .rgn.sbin, rgn.pbin); 

imagePixels  =  ( (rgn.s2  +1)  /  rgn.sbin  )  *(  (rgn.p2  +1)  /  rgn.pbin  ); 


pl_expjnit_seq(); 

pl_shtr_set_open_mode(hCam,  OPEN_PRE_EXPOSURE); 
pLexp_setup_seq(hCam,1,1,&rgn,TIMED_MODE,  500,  &stream_size ); 
pimg  =  (uns16_ptr)  malloc(  imagePixels  *  2  ); 

//  Variable  Initialization 

for  (i=0;  i  <  60;  i++)  cycle_index[i]  =  -1 ; 

lat_deg  =  78;  lat_min  =  55;  lat_sec  =  24; 

lon_deg  =  348;  lon_min  =  4;  lon_sec  =  12;  //  NYA  El  1d55’48’  348  4  12 
alt_m  =  63; 


//Read  schedule  File 
timejdx  =  0; 

fp  =  fopenC'schedule.txt’V'r"); 

if  (fp  ==  NULL)  {perror("Can’t  open  schedule  file!");  exit(-l); } 
while( 

fscanf(fp,"%2d%2d%2d  %2d%2d%2d  %2d%2d%2d  %2d%2d%2d", 
&tmStartTime.tm_hour, 

&tmStartTime.tm_min, 

&tmStartTime.tm_sec, 

&tmStartTime.tm_year, 

&tmStartTime.tm_mon, 

&tmStartTime.tm_mday, 

&tmStopTime.tm_hour, 

&tmStopTime.tm_min, 

&tmStopTime.tm_sec, 

&tmStopTime.tm_year, 

&tmStopTime.tm_mon, 

&tmStopTime.tm_mday)  !=  EOF)  { 
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tmStartTime.tm_mon--; 

tmStopTime.tm_mon~; 

tmStartTime.tm_year  =  tmStartTime.tm_year  +  1 00; 
tmStopTime.tm_year  =  tmStopTime.tm_year  +  1 00; 

starttime  =  mktime(&tmStartTime); 
stoptime  =  mktime(&tmStopTime); 

startlist[timejdx]  =  starttime; 
stoplist[timeJdx]  =  stoptime; 
time_idx++; 

printf("\rStart  Time:  %s“,asctime(&tmStartTime)); 
printf("\rStop  Time:  %s",asctime(&tmStopTime)); 

} 

fclose(fp); 

//  Read  Parameter  File 
fp  =  f  open(P  ARAM  FI  LE , "  r") ; 

if  (fp  ==  NULL)  {perror("Can’t  open  parameter  file!");  exit(-l); } 

fscanf  (f  p ,  "%s" ,  sLocation) ; 

fscanf(fp,"%s  %s  %s  %s  %s  %s", 

filter[0],filter[1],filter[2],filter[3],filter[4],filter[5]); 


i  =  0; 

while(fscanf(fp,"%u  %u  %u  %uH,&sec_start,&filter_pos)&gain,&exp_time)  ==  4) 

{ 

cycle_index[sec_start]  =  i; 
entry[i].filter_pos  =  filter_pos  - 1 ; 
entry[ij.gain  =  gain; 
entry[i].exp_time  =  exp_time; 
i++; 

printf("\rEntry:  %2u  %s  %2u  %3u\n",sec_start,filter[filter_pos- 
1],gain,exp_time); 

} 

fclose(fp); 

for  (i=0;  i  <  6;  i++)  printf("\rFilter  %u:  %s\n",i+1  ,filter[i]); 
current_tm_day  =  0; 
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for  (  schedulejdx  =  0;  schedulejdx  <  timejdx;  schedule_idx++)  { 

starttime  =  startlist[schedule_idx]; 
stoptime  =  stoplist[schedule_idx]; 

printf("\rWaiting  for  Start  Time:  %s\r...\n",ctime(&starttime)); 
time(&now); 

while  (now  <  starttime)  { 
time(&now); 

pl_ccd_get_tmp(hCam,&tempC); 

printf("\rCurrent  Temperature:  %5.2f  C\r",(float)tempC/100.); 

} 

if  (now  <  stoptime)  { 

//  Initialize  FrameGrabber 

//Turn  on  Intensifier 
nStatus  =  intensifierPower(l); 
int_on_flag  =  1 ; 

} 

while  (  now  <  stoptime)  { 
time(&now); 
if(lasttime  !=  now)  { 
tmtime  =  gmtime(&now); 
seconds_in_cycle  =  tmtime->tm_sec; 

//  printf("%2u: ",  seconds_in_cycle); 
if  ((entryjdx  =  cycle_index[seconds_in_cycle])  !=  -1)  { 
printf("\r%2u:  F:  %s  G:%2d  E:  %3d",  seconds_in_cycle, 
filter[entry[entry_idx].filter_pos], 
entry[entry_idx].gain,entry[entryjdx].exp_time); 
sprintf(sFilename,"%02d%02d%02d_%02d%02d%02d_%s_%s.keo", 
tmtime->tm_year-1 00,tmtime->tm_mon+1  ,tmtime->tm_mday, 
tmtime->tm_hour,tmtime->tm_min,tmtime->tm_sec, 
filter[entry[entry_idx].filter_pos],sLocation); 
printf("  -  %s\n",sFilename); 

//  Handle  Day  Directory  Creation 
if  (tmtime->tm_mday  !=  current_tm_day)  { 
sprintf(sDirname,7/imagedir//%02d%02d%02d", 

tmtime->tm_year-1 00,tmtime->tm_mon+1  ,tmtime->tm_mday); 
mkdir(sDirname,0755); 
strcat(sDimame,T); 
current_tm_day  =  tmtime->tm_mday; 

} 
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do_entry(entry_idx); 
write  J  peg  (); 

//if  ( (fptemp  =  fopen(  TEMPFILE,  "wb" ))  ==  NULL  )  { 

//  printf(  "\n\nCouldn’t  open  file  to  pass  current  filename!  Aborting  the 
program. .An" ); 

//  fclose(  fptemp ); 

//exit(O); 

//  } 

//sFullFilename[0]  =  0; 

//strcat(sFullFilename,sDirname); 

//strcat(sFullFilename.sFilename); 

//fprintf(fptemp,"%s\n",sFullFilename); 

//fclose(fptemp); 


printf("\rAverage:  %7.2f  Std  Dev:  %7.2f\n",ave,sdev); 

upper  =  ave  +  SIGMA  *  sdev; 
lower  =  ave  -  SIGMA  *  sdev; 

printf("\rUpper:  %6d  Lower:  %6d  Status:  ".upper, lower); 

newgain  =  entry[entry_idx].gain; 
newexp  =  entry[entry_idx].exp_time; 

//****  Calculate  next  frame  parameters... 

if  (upper  >  MAX_COUNTS  ||  lower  >  (int)  (MAX_COUNTS/2.0))  { 
printf("OVEREXPOSED\n"); 

if  (newgain  >  MIN_GAIN)  { 
newgain--; 
newexp  *=  1 .25; 

}  else  if  (newexp  >  (MIN_EXPOSURE  *  2.))  newexp  /=  2.; 
else  newexp  =  MIN_EXPOSURE; 

} 

else  if  (upper  <  (int)  (MAX_COUNTS/2.0))  { 
printf("UNDEREXPOSED\n"); 
if  (newexp  <  MAX_EXPOSURE)  { 

//  printf  ("\rExp  <  MAX_EXP\nu); 

if  (newexp  <=  (MAX_EXPOSURE  12.))  {//  printf("\rExp  <= 
MAX_EXPOSURE/2\n"); 

newexp  *=  1 .8; } 

else  { //  printf ("\rNew  =  MAX\nM); 
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newexp  =  MAX_EXPOSURE; } 

} 

else  if  (newgain  <  MAX_GAIN)  {  newgain++;  newexp  =  .75  * 
MAX_EXPOSURE; } 

} 

else  printf("NO  CHANGES  NEEDED\n"); 

if  (newgain  >  MAX_GAIN)  newgain  =  MAX_GAIN; 

if  (newexp  >  MAX_EXPOSURE)  newexp  =  MAX_EXPOSURE; 

if  (newgain  <  MIN_GAIN)  newgain  =  MIN_GAIN; 

if  (newexp  <  MIN_EXPOSURE)  newexp  =  MIN_EXPOSURE; 

//***  End  calculation  of  next  frame’s  parameters. 

//  if  (entryjdx  !=  0)  { 

entry[entry_idx].gain  =  newgain; 
entry[entry_idx].exp_time  =  newexp; 

//  } 

printf  ("\rComputed  Adjustment  GAIN:  %d  EXP:  %6.2f  Temp:  %5.2f\n", 
newgain,  newexp,  (float)tempC/100.); 

} 

} 

lasttime  =  now; 

} 

if  (int_on_flag  !=  0)  { 

//Turn  off  Intensifier 
nStatus  =  intensifierPower(O); 
printf("\rlntensifer  Off  -  Stop  Time  Reached'An"); 

int_on_flag  =  0; 

} 


}  //  End  for  loop  on  scheduler  index 
printf("\r\nFinished  List  -  Terminating  Program!\n"); 


//  Close  Parallel  Port  here! 

pl_exp_uninit_seq(); 

free(pimg); 

exit(0); 

}  /*  End  Main  7 
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void  do_entry() 

{ 

//***  BEGIN  ACQUISITION 

nStatus  =  intensifierGain(3  -  (entry[entry_idx].gain  &  0x0003)); 

//  printf("lntensifier%d\n",  nStatus); 

nStatus  =  filterWheel(  entry[entry_idx].filter_pos  +  1  ); 

nStatus  =  shutter(l);  II  Open  shutter! 

pl_exp_setup_seq(hCam,1 ,1  ,&rgn,TIMED_MODE,entry[entryJdx].exp_time  * 
100  ,  &stream_size ); 
pl_exp_start_seq(hCam,pimg); 
expStatus  =  0; 

while  (expStatus  !=  READOUT_COMPLETE) 

pl_exp_check_status(  hCam,  &expStatus,  &bytes); 
nStatus  =  shutter(O);  //  Close  shutter! 

//  read  image  here 

//  Write  PGM  file 

if  ((fpPGM  =  fopen("image.pgm","wb"))  ==  NULL)  { 
printf(  "\n\nCouldn’t  open  PGM  file!  Aborting  the  program..  An" ); 
fclose(  fpPGM ); 
exit(-l); 

} 

//  fprintf (fpPGM , "%s" , " P5  670  650  65535  ");  //for  2x2 
fprintf (fpPGM , "%s" P5  335  325  65535  ");  //  for  4x4 
for(k=0;k<imagePixels;k++)  { 
uidata  =  *(pimg+k); 
buf[k]  =  uidata; 

uHiByte  =  (uidata  »  8)  &  OxOOFF; 
uLoByte  =  uidata  &  OxOOFF; 
fputc(uLoByte, fpPGM); 
fputc(uHiByte, fpPGM); 

} 

fclose(fpPGM); 


//  Write  Filter  Specific  PGM  file 
sPgmFilename[0]  =  0; 

strcat(sPgmFilename,filter[entry[entryJdx].filter_pos]); 

strcat(sPgmFilename,".pgm"); 

if  ((fpPGM  =  fopen(sPgmFilename,"wb"))  ==  NULL)  { 
printf(  "\n\nCouldn’t  open  Filter  Specific  PGM  file!  Aborting  the  program..  An" ); 
f close ( fpPGM  ); 
exit(-l); 

} 
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//  fprintf(fpPGMJ"%s","P5  670  650  65535  ");  //  for  2x2 
fprintf (f p PG M , "%s" P5  335  325  65535  ");  //  for  4x4 
for(k=0;k<imagePixels;k++)  { 
uidata  =  *(pimg+k); 
buf[k]  =  uidata; 

uHiByte  =  (uidata  »  8)  &  OxOOFF; 
uLoByte  =  uidata  &  OxOOFF; 
fputc(uLoByte,fpPGM); 
fputc(uHiByte,fpPGM); 

} 

fclose(fpPGM); 


//  Handle  Statistics... 
findindex(1 00, 1 25);  //  2x2:  250 
for  (k=0;k  <  100;  k++)  data[k]  =  buf[randindex[k]]; 
moment(data,  1 00,&ave,&sdev) ; 


//  Get  CCD  temperature 
pl_ccd_get_tmp(hCam,&tempC); 


//  Insert  parameters  into  Image  array, 
ip  =  &buf[0]; 

*ip  =  tmtime->tm_year  +  1 900;  //  Index  0 

*++ip  =  tmtime->tm_mon+1 ;  //  Index  1 

*++ip  =  tmtime->tm_mday;  //  Index  2 

*++ip  =  tmtime->tm_hour;  //  Index  3 

*++ip  =  tmtime->tm_min;  //  Index  4 

*++ip  =  tmtime->tm_sec;  //  Index  5 

*++ip  =  atoi(filter[entry[entry_idx].filter_pos]);  //  Index  6 
*++ip  =  entry[entry_idx].gain;  //  Index  7 

*++ip  =  entry[entry_idx].exp_time;  //  Index  8 


*++ip  =  lat_deg; 
*++ip  =  lat_min; 
*++ip  =  lat_sec; 
*++ip  =  lon_deg; 
*++ip  =  lon_min; 
*++ip  =  lon_sec; 
*++ip  =  alt_m; 
*++ip  =  tempC; 


//  Index  9 
//  Index  10 
//  Index  1 1 
//  Index  12 
//  Index  13 
//  Index  14 
//  Index  15 

//  Index  16  -  .01  Centigrade  units 


sFullFilename[0]  =  0; 

strcat(sFullFilename,sDirname); 

strcat(sFullFilename,sFilename); 

if  ( ( fpOutput  =  fopen(  sFullFilename,  "wb" ) )  ==  NULL )  { 
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printf(  "\n\nCouldn’t  open  Output  file!  Aborting  the  program. .An" ); 

fclose(  fpOutput ); 

exit(-l); 

} 

for(k=0;k<imagePixels;k++)  { 
uidata  =  buf[k]; 

uHiByte  =  (uidata  »  8)  &  OxOOFF; 
uLoByte  =  uidata  &  OxOOFF; 
fputc(uLoByte, fpOutput); 
fputc(uHiByte, fpOutput); 

} 

fclose(  fpOutput ); 

pl_exp_finish_seq(  hCam,  pimg,  0  ); 

}  //End  do_entry(); 

jjk  *★★★***★***★***********★*******★*★★*★****★****★**********★*****  ******** 

//writejpeg 

jj-k  ******************************  **********************  ********  *********** 

void  write Jpeg()  { 

const  unsigned  int  width  =  IMAGE_X_SIZE  ; 

const  unsigned  int  height  =  IMAGE_Y_SIZE  ; 

const  unsigned  int  wxh  =  IMAGE_X_SIZE  *  IMAGE_Y_SIZE  ; 

const  float  CF  =  (255.0/MAX_COUNTS);  //  HRP:  (255.0/4095.0); 

/‘boolean  typedef  in  jpeglib.h,  must  be  TRUE  (1)  or  FALSE  (0)*/ 
const  boolean  FALSE_COLOR  =  TRUE; 

const  int  pixparts  =  (FALSE_COLOR  ==  TRUE)  ?  3  :  1 ; 
unsigned  short  headerdata[40];  //  20 
char  comment[70]; 

JSAMPLE  pixeldata[width*height*pixparts]; 

JSAMPROW  row_pointer[1]; 
int  row_stride; 

struct  jpeg_compress_struct  imanimage; 
struct  jpeg_error_mgr  jpegerror; 

FILE  ‘jpegfile; 
char  jfilename[70]; 
char  *dot; 
int  i  =  0; 
int  j; 
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if  (pixparts  ==  3) 

/* 

initialize  pixeldata  for  tri-component  pixels 

7 

while(i  <  wxh  )  { 
j  =  i*3; 
if  (i  <  40)  { 

headerdata[i]  =  *(&buf[i*2]); 

pixeldatajj]  =  pixeldataU+1]  =  pixeldata[j+2]  =  0; 

i++; 

} 

else  { 

switch  (headerdata[6])  { 
case  4278  : 

pixeldatap]  =  pixeldata[j+1  ]  =  0; 
pixeldataO+2]  =  (JSAMPLE)(buf[i]*CF); 
break; 
case  5577  : 

pixeldatap]  =  pixeldataO+2]  =  0; 
pixeldataO+1]  =  (JSAMPLE)(buf[i]*CF); 
break; 
case  6300  : 

pixeldataO+1]  =  pixeldata[j+2]  =  0; 
pixeldataO]  =  (JSAMPLE)(buf[i]*CF); 
break; 
case  7774 : 
default : 

pixeldata[j]  =  pixeldata[j+1  ]  =  pixeldata[j+2]  =  (JSAMPLE)(buf[i]*CF); 
break; 

} 

i++; 

} 

} 

else 

/* 

‘initialize  the  pixeldata  for  single  compnent  pixels 
7 

while  (i  <  wxh)  { 
if  (i  <  40)  { 

headerdata[i]  =  buf[i]; 
pixeldata[i]  =  0; 
i++; 

} 

else  { 
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pixeldata[i]  =  (JSAMPLE)(buf[i]*CF); 
i++; 

} 

} 

/* 

*make  the  jpeg  filename  equal  the  keo  filename, 

*but  change  the  suffix 

7 

strcpy(jfilename,  sFullFilename); 
dot  =  strrchr(jfilename, 
strcpy(dot,  ".jpg\0"); 

//  printf(''filename=%s\n",  jfilename); 

/* 

‘initialize  the  comment  string  by  converting  headerdata 
*to  a  text  string,  add  "hd:"  in  front  as  an  identifier 

7 

sprintf(comment,  "hd: "); 
for  (i  =  0;  i  <  40;  i++)  { 
dot  =  strrchr(comment,  ’  ’); 
sprintf(++dot,  "%d ",  headerdata[i]); 

} 

//  printf("the  comment  is:  %s\n",  comment); 

imanimage.err  =  (jpeg_std_error(&jpegerror)); 
jpeg_create_compress(&imanimage); 

if  ((jpegfile  =  fopen(jfilename,  "wb"))  ==  NULL)  { 
fprintf(stderr,  "cannot  open  file:  %s\n",  jfilename); 
exit(1); 

} 

jpeg_stdio_dest(&imanimage,  jpegfile); 

imanimage.image_width  =  width; 
imanimage.image_height  =  height; 
imanimage.input_components  =  pixparts; 

imanimage.in_color_space  =  (FALSE_COLOR  ==  TRUE)  ?  JCS_RGB 

JCS_GRAYSCALE; 

jpeg_set_defaults(&imanimage); 

jpeg_set_quality(&imanimage,  75,  TRUE); 

jpeg_start_compress(&imanimage,  TRUE); 
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row_stride  =  (width*pixparts); 

jpeg_write_marker(&imanimage,  JPEG_COM,  comment,  strlen(comment)); 

while  (imanimage.next_scanline  <  imanimage.image_height)  { 
row_pointer[0]  =  &pixeldata[imanimage.next_scanline  *  row_stride]; 

(void)  jpeg_write_scanlines(&imanimage,  row_pointer,  1); 

} 

//printf(" False  Color:  %s\n",  (FALSE_COLOR  ==  TRUE)  ?  "ON"  :  "OFF"); 

jpeg_finish_compress(&imanimage); 

fclose(jpegfile); 

jpeg_destroy_compress(&imanimage); 

} 

void  moment(float  data[],  int  n,  float  *ave,  float  *sdev) 

{ 

int  j; 

float  ep=0.0,s,p,var; 

s=0.0; 

var=0.0; 

for  (j=0;j<n;j++)  s  +=  data[j]; 

*ave=s/n; 

for  G=0;j<n;j++)  { 
s  =  data[j]; 
ep  +=  s; 
var  +=  s*s; 

} 

var=(var-ep*ep/n)/(n-1 ); 

*sdev=  sqrt(var); 


} 

void  findindex(int  n_points,int  pixel_radius) 

{ 

int  i; 

float  distance, frand,x,y; 

for  (i=0;  i<n_points;  i++)  { 
distance  =  pixel_radius  +  1 ; 
while(  distance  >  pixel_radius)  { 
frand  =  rand()/(float)  RAND_MAX; 
x  =  2.0  *  pixel_radius  *  frand  -  pixel_radius; 
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frand  =  rand()/(float)  RAND_MAX; 
y  =  2.0  *  pixel_radius  *  frand  -  pixel_radius; 
distance  =  sqrt(  x*x  +  y*y); 

} 

//  randindex[i]  =  335  +  (long)  x  +  670  *  ((long)  y  +  325); 

randindexp]  =  (IMAGE_X_SIZE  /  2)  +  (long)  x  +  IMAGE_X_SIZE  *  ((long)  y  + 
(IMAGE_Y_SIZE  /  2))  ; 

} 
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6.2  Schedule  File  for  2001-2002  Winter:  schedule.txt 


1 54800  01 1 207  1 92300  01 1 207 
1 35300  01 1 208  231 200  01 1 208 
1 241 00  01 1 209  021 700  01 1 21 0 
114800  011210  061800  011211 
092300  011211  103600  011211 
113000  011211  160000  011221 
173600  011221  133600  011222 
21 3000  01 1 222  1 23000  01 1 223 
001 200  01 1 224  1 1 3000  01 1 224 
025400  01 1 225  1 01 800  01 1 225 
123000  020104  202300  020104 
123000  020105  233600  020105 
124100  020106  030000  020107 
083000  020107  094800  020107 
124800  020107  094100  020108 
125300  020108  093600  020109 
130600  020109  093000  020110 
131100  0201 1 0  092300  0201 1 1 
131800  020111  091800  020112 
1 32300  0201 1 2  091 1 00  0201 1 3 
1 33600  020113  090000  020114 
1 341 00  020 1 1 4  085300  020115 
1 34800  020115  084800  0201 1 6 
1 35300  020116  0841 00  020117 
1 40000  020117  083600  020118 
1 83000  020118  083000  0201 1 9 
211700  0201 1 9  082300  0201 20 
235300  020120  081800  020121 
030000  020122  073000  020122 
1 541 00  020131  1 71 200  020131 
154800  020201  204200  020201 
155300  020202  000000  020203 
160000  020203  064800  020204 
160600  020204  064100  020205 
161200  020205  063500  020206 
161700  020206  063000  020207 
163000  020207  062400  020208 
163600  020208  061100  020209 
164200  020209  060500  020210 
164700  020210  060000  020211 
165300  020211  055400  020212 
170000  020212  054800  020213 
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170600  020213  054100  020214 
171700  020214  053500  020215 
183600  020215  052400  020216 
211200  0202 1 6  05 1 800  02021 7 
000000  0202 1 8  05 1 1 00  02021 8 
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6.3  Schedule  File  for  2002-2003  Winter:  schedule.txt 


151100  021128 
134800  021129 
122000  021130 
105300  021201 
200000  021211 
230600  021212 
014200  021214 
043500  021215 
140600  021225 
122300  021226 
111100  021227 
100000  021228 
201200  030108 
225300  030109 
013600  030111 
133000  030121 
133600  030122 
134800  030123 
082300  030124 
135300  030124 
061100  030125 
140600  030125 
141100  030126 
142300  030127 
143000  030128 
143600  030129 
144100  030130 
145000  030131 
150000  030201 
150600  030202 
151100  030203 
170600  030204 
200600  030205 
224200  030206 
014700  030208 
170600  030219 
171700  030220 
051800  030221 
172300  030221 
173000  030222 
173600  030223 
174200  030224 


220600  021128 
012300  021130 
050000  021201 
151800  021211 
134100  021212 
124100  021213 
113600  021214 
101800  021215 
190600  021225 
223600  021226 
014700  021228 
122300  030108 
111100  030109 
101100  030110 
090600  0301 1 1 
154100  030121 
195300  030122 
230600  030123 
085300  030124 
031200  030125 
084800  030125 
083600  030126 
083000  030127 
082300  030128 
081800  030129 
080600  030130 
080000  030131 
075400  030201 
074800  030202 
074100  030203 
073000  030204 
072400  030205 
071800  030206 
071100  030207 
060500  030208 
201200  030219 
235300  030221 
053000  030221 
052400  030222 
051800  030223 
051100  030224 
050500  030225 
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174700  030225 
180000  030226 
180600  030227 
181000  030228 
081100  030301 
181700  030301 
183000  030302 
183600  030303 
184200  030304 
195300  030305 
224700  030306 
212300  030320 
051800  030321 
214200  030321 
220000  030322 
223000  030323 
045400  030324 


045400  030226 
044800  030227 
044100  030228 
043000  030301 
081100  030301 
042400  030302 
041800  030303 
041100  030304 
040000  030305 
035400  030306 
034200  030307 
011200  030321 
051800  030321 
005400  030322 
003600  030323 
000600  030324 
045400  030324 
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6.4  Camera  controller  Serial  Driver:  SerialLib.c 


/*  This  file:  SerialLib.c  version  1.0  CAL  08-Nov-01 
Revision  History: 

Code  is  written  to  communicate  with  the  ANIMATICS  servo-motor  controller  (SMARTMOTOR) 
that 

is  running  the  KEO  version  controller  software 

Serial  interface  is  COM1-COM4  (cua0-cua3)  @  9600, 8, N,1 

Code  sends  the  SMARTMOTOR  commands  in  Immediate  mode,  and  then  polls  for  input 
until  a  <cr>  (\r  or  \1 3)  is  recieved  as  a  terminating  character.  A  timeout  of  MAX_TIMEOUT 
is  checked  (in  milliseconds)  and  terminates  the  called  routine. 

SerialLib.c  contains  the  libraries  to  initializes  and  sets  up  the  comm  port  for  communications  with 
the  SMARTMOTOR  controller. 

V 

#include  <termios.h> 

#include  <stdio.h> 

#include  <fcntl.h> 

#include  <string.h> 

#include  <time.h> 

#include  "SerialLib.h” 


//GLOABL  VARIABLES  declarations 

char  c;  //  character  read  into  by  read  from  serial  port  buffer 

int  fd;  //  pointer  to  the  serial  port 

struct  termios  oldtio.newtio;  //  old  and  new  terminal  i/o  structures 
unsigned  char  buf[MAXDATABYTES]; 

//  end  of  GLOBAL  VARIABLE  declarations 


int  openSerial(  char  ‘port ) 

{ 

//  Open  modem  device  for  reading  and  writing  and  not  as  controlling  tty  because  we  don’t  want  to 
get 

//  killed  if  linenoise  sends  CTRL-C. 

if  (  strlen(port)  <  6  ) 

{ 

printf("opening  default  port.. An"); 

fd  =  open(MODEMDEVICE,  0_RDWR  |  0_N0CTTY);  //  not  a  valid  port  assignment 

} 

else 

{ 
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printf("opening  port:  %s...\n",  port); 

fd  =  open(  port,  0_RDWR  |  0_N0CTTY); 

} 

if  (fd  <0) 

{ 

printf(  "\nCouldn’t  open  serial  port!" ); 

return  0;  //  return  0  to  indicate  error  reading  port; 

} 

else 

printf(  "\nSerial  port  successfully  opened" ); 

tcgetattr(fd,&oldtio);  /*  save  current  modem  settings  7 

/*  Set  bps  rate  and  hardware  flow  control  and  8n1  (8bit,no  parity,  1  stopbit).  Also  don’t  hangup 
automatically  and  ignore  modem  status.  Finally  enable  receiving  characters.  7 

newtio.c_cflag  =  B9600  |  CS8  |  CLOCAL  |  CREAD;  /*  (CAL)  no  hardware  control  for  the 
SMARTMOTOR 

/*  Ignore  bytes  with  parity  errors  and  make  terminal  raw  and  dumb.  7 
newtio.cjflag  =  IGNPAR; 

/*  Raw  output.  7 
newtio.c_oflag  =  0; 

/*  Don’t  echo  characters  because  if  you  connect  to  a  host  it  or  your  modem  will  echo  characters 
for  you. 

Don’t  generate  signals.  7 
newtio.cjflag  =  0; 

/*  now  clean  the  modem  line  and  activate  the  settings  for  modem  7 

tcflush(fd,  TCI  FLUSH); 
tcsetattr(fd,TCSANOW,&newtio); 

newtio.c_cflag  =  BAUDRATE  |  CS8  |  CLOCAL  |  CREAD; 
tcflush(fd,  TCIFLUSH); 
tcsetattr(fd,TCSANOW,&newtio); 

printf(  "\nSerial  Communications  all  set  up  now.. An" ); 

//  Setup  the  address  for  the  motor  (#1)  by  sending  an  ASCI1 129  to  the  motor... 

sprintf(  buf,  "\129“ );  /*  Send  an  ASCII  to  129  to  address  the  motor 

tcflush(fd,  TCIOFLUSH); 

write(  fd,  buf,  strlen(buf) );  /*  and  send  the  whole  command  string  7 

printf(  "\nSMARTMOTOR  has  been  address  to  #1  --  we  are  now  ready  to  talk...\n\n" ); 

return  1 ; 

}  //  end  of  ’openSerial()’ 
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void  closeSerial(  void ) 

{ 

tcsetattr(fd,  TCSANOW,  &oldtio  );  //  reset  to  old  terminal  attributes 

close(  fd  );  //  and  close  the  terminal 

return; 

}  //  end  of  ’closeSerial()’ 


int  filterWheel(  int  next ) 

{ 

int  i,j,  k,  n_bytes_read,  n_rets; 
unsigned  char  msg[25]; 
clock_t  start,  end; 
double  darg,  elapsed; 

I*  Try  sending  "move  to  filter  #3  to  the  SMARTMOTOR  7 

sprintf(  msg,  "g=%d\r",  next ); 
tcflush(fd,  TCIOFLUSH); 

write(  fd,  msg,  strlen(msg) );  /*  and  send  the  whole  command  string  7 

sprintf(  msg,  "GOSUB4\r" ); 
tcflush(fd,  TCIOFLUSH); 

write(  fd,  msg,  strlen(msg) );  /*  and  send  the  whole  command  string  7 

start  =  clock();  t*  initialize  timeout  clock  7 

elapsed  =  0.0;  /*  initialize  read  duration  7 

//  Now  read  the  entire  buffer  for  SMARTMOTOR  return 

i=0; 
j  =  0; 

c  =  0; 

n_rets  =  1 ;  //  SMARTMOTOR  will  only  return  one  carriage  return 

//  printf  ('ViSending  command  to  SMARTMOTOR..." ); 

while  ((j  <  n_rets)  &&  (elapsed  <  MAX_TIMEOUT)) 

{ 

n_bytes_read  =  read(fd,&c,1);  //  read  the  SMARTMOTOR  port 

if  (n_bytes_read  ==  1 ) 
if  ( (buf[i++]  =  c)  ==13) 

j++;  //  check  for  carriage  returns 

end  =  clock(); 

elapsed  =  ((double) (end-start))  *  1000/CLOCKS_PER_SEC; 

} 

buf[i]  =  0;  //  terminate  the  character  string 

//  printf(  "\nFinished  reading  SMARTMOTOR.  %d  bytes  read  in  %2.1f  msec,  string  is:  %s\n“, 
elapsed,  buf ); 

if  (elapsed  <  MAX_TIMEOUT) 

]  =  buf[strlen(buf)-2]  -  48; 
else 

j  =  -i; 
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return  j; 


}  //  end  of  ’filterwheel’ 


int  intensifierGain(  int  next ) 

{ 

int  i,j,  k,  n_bytes_read,  n_rets; 
unsigned  char  msg[25]; 
clock_t  start,  end; 
double  darg,  elapsed; 

//  Set  up  the  commands  for  the  next  intensifier  gain 

sprintf(  msg,  "e=%d\r",  next ); 
tcflush(fd,  TCIOFLUSH); 

write(  fd,  msg,  strlen(msg) );  /*  and  send  the  whole  command  string  7 

sprintf(  msg,  "GOSUB2\r" ); 
tcflush(fd,  TCIOFLUSH); 

write(  fd,  msg,  strlen(msg) );  /*  and  send  the  whole  command  string  7 

start  =  clock();  /*  initialize  timeout  clock  7 

elapsed  =  0.0;  /*  initialize  read  duration  7 

//  Now  read  the  entire  buffer  for  SMARTMOTOR  return 

i— 0; 
j  =  0; 
c  =  0; 

n_rets  =  1 ;  //  SMARTMOTOR  will  only  return  one  carriage  return 

//  printf  ("VtSending  command  to  SMARTMOTOR...'1 ); 

while  ((j  <  n_rets)  &&  (elapsed  <  MAX_TIMEOUT)) 

{ 

n_bytes_read  =  read(fd,&c,1);  //  read  the  SMARTMOTOR  port 

if  (n_bytes_read  ==  1 ) 
if  ( (buf[i++]  =  c)  ==13) 

j++;  /*  check  for  carriage  returns  7 

end  =  clock(); 

elapsed  =  ((double) (end-start))  *  1000  /  CLOCKS_PER_SEC; 

} 

buffi]  =  0;  //  terminate  the  character  string 

//  printf(  "\nFinished  reading  SMARTMOTOR.  %d  bytes  read  in  %2.1f  msec,  string  is:  %s\n'\  i, 
elapsed,  buf ); 

if  (elapsed  <  MAX_TIMEOUT) 
j  =  buf[strlen(buf)-2]  -  48; 
else 

j  =  -i; 

//  printf("intgain  returns:  %d\n",  j); 
return  j; 
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} 


//  end  of  ’intensifiergain’ 


int  intensifierPower(  int  next ) 

{ 

int  i,j,  k,  n_bytes_read,  n_rets; 
unsigned  char  msg[25],  temp[25]; 
clock_t  start,  end; 
double  darg,  elapsed; 

//  Set  up  the  commands  for  the  next  intensifier  power 

sprintf(  msg,  "f=%d\r",  next ); 
tcflush(fd,  TCIOFLUSH); 

write(  fd,  msg,  strlen(msg) );  /*  and  send  the  whole  command  string  7 

sprintf(  msg,  "GOSUB3\r" ); 
tcflush(fd,  TCIOFLUSH); 

write(  fd,  msg,  strlen(msg) );  /*  and  send  the  whole  command  string  7 

start  =  clock();  /*  initialize  timeout  clock  7 

elapsed  =  0.0;  /*  initialize  read  duration  7 

//  Now  read  the  entire  buffer  for  SMARTMOTOR  return 

i=0; 
j  =  0; 
c  =  0; 

n_rets  =  1 ;  //  SMARTMOTOR  will  only  return  one  carriage  return 

//  printf  (“\nSending  command  to  SMARTMOTOR...1' ); 

while  ({j  <  n_rets)  &&  (elapsed  <  MAX_TIMEOUT)) 

{ 

n_bytes_read  =  read(fd,&c,1 );  //  read  the  SMARTMOTOR  port 

if  (n_bytes_read  ==  1 ) 
if  ( (buf[i++]  =  c)  ==  1 3  ) 

j++;  I*  check  for  carriage  returns  7 

end  =  clock(); 

elapsed  =  ((double) (end-start))  *  1000/  CLOCKS_PER_SEC; 

} 

buffi]  =  0;  //  terminate  the  character  string 

//  printf(  "\nFinished  reading  SMARTMOTOR.  %d  bytes  read  in  %2.1f  msec,  string  is:  %s\n",  i, 
elapsed,  buf ); 

if  (elapsed  <  MAX_TIMEOUT)  //  received  good  return  from  SMARTMOTOR 

{ 

strcpy(  temp,  buf+7 ); 

//  printf("\nthe  temp  string  is  %s\n“,  temp  ); 

if  (  strncmp(temp,  "OF",  2) ) 

j  =  i; 

else 

j  =  o; 

} 
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else 

j  =  -i ; 


//  SMARTMOTOR  timed  out,  return  error 


return  j; 

}  //  end  of  ’intensifierPower’ 


int  shutter(  int  next ) 

{ 

int  i,j,  k,  n_bytes_read,  n_rets; 
unsigned  char  msg[25],  temp[25]; 
clock_t  start,  end; 
double  darg,  elapsed; 

//  Set  up  the  commands  for  the  next  intensifier  power 

sprintf(  msg,  "d=%d\r",  next ); 
tcflush(fd,  TCIOFLUSH); 

write(  fd,  msg,  strlen(msg) );  /*  and  send  the  whole  command  string  7 

sprintf(  msg,  "GOSUBIV ); 
tcflush(fd,  TCIOFLUSH); 

write ( fd,  msg,  strlen(msg) );  /*  and  send  the  whole  command  string  7 

start  =  clock();  /*  initialize  timeout  clock  7 

elapsed  =  0.0;  /*  initialize  read  duration  7 

//  Now  read  the  entire  buffer  for  SMARTMOTOR  return 

i=0; 
j  =  0; 
c  =  0; 

n_rets  =  1 ;  //  SMARTMOTOR  will  only  return  one  carriage  return 

//  printf  ("\nSending  command  to  SMARTMOTOR...1' ); 

while  ((j  <  n_rets)  &&  (elapsed  <  MAX_TIMEOUT)) 

n_bytes_read  =  read(fd,&c,1 );  //  read  the  SMARTMOTOR  port 

if  (n_bytes_read  ==  1 ) 
if  ( (buf[i++]  =  c)  ==13) 

j++;  /*  check  for  carriage  returns  7 

end  =  clock(); 

elapsed  =  ((double) (end-start))  *  1000/  CLOCKS_PER_SEC; 

} 

buf[i]  =  0;  //  terminate  the  character  string 

//  pn  07dec01  next  line  commented  out 

//  printf(  'YiFinished  reading  SMARTMOTOR.  %d  bytes  read  in  %2.1f  msec,  string  is:  %s\n”, 
i,  elapsed,  buf ); 

if  (elapsed  <  MAX_TIMEOUT)  //  received  good  return  from  SMARTMOTOR 

{ 

strcpy(  temp,  buf+4 ); 

//  printf("\nthe  temp  string  is  %s\n",  temp  ); 
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if  (  strncmp(temp,  “???",  3) ) 
j  =  next; 
else 

j  =  -2;  //  read  error? 

} 

else  //  SMARTMOTOR  timed  out,  return  error 

j  =  -i; 

return  j; 

}  //  end  of  ’shutter’ 

int  lightStatus(  int  next ) 

{ 

int  i,j,  k,  n_bytes_read,  n_rets; 
unsigned  char  msg[25]; 
clock_t  start,  end; 
double  darg,  elapsed; 

//  Set  up  the  commands  for  the  next  intensifier  power 

sprintf(  msg,  "GOSUBO\r" ); 
tcflush(fd,  TCIOFLUSH); 

write(  fd,  msg,  strlen(msg) );  /*  and  send  the  whole  command  string  7 

start  =  clock();  /*  initialize  timeout  clock  7 

elapsed  =  0.0;  /*  initialize  read  duration  7 

//  Now  read  the  entire  buffer  for  SMARTMOTOR  return 

i=0; 
j  =  0; 

c  =  0; 

n_rets  =  1 ;  //  SMARTMOTOR  will  only  return  one  carriage  return 

//  printf  ("\nSending  command  to  SMARTMOTOR..." ); 

while  ((j  <  n_rets)  &&  (elapsed  <  MAX_TIMEOUT)) 

n_bytes_read  =  read(fd,&c,1);  //  read  the  SMARTMOTOR  port 

if  (n_bytes_read  ==  1 ) 
if  ( (buf[i++]  =  c)  ==13) 

j++;  /*  check  for  carriage  returns  7 

end  =  clock(); 

elapsed  =  ((double) (end-start))  *  1000  /  CLOCKS_PER_SEC; 

} 

buf[i]  =  0;  //  terminate  the  character  string 

//  printf(  ”\nFinished  reading  SMARTMOTOR.  %d  bytes  read  in  %2.1f  msec,  string  is:  %s\n", 
elapsed,  buf ); 

if  (elapsed  <  MAX_TIMEOUT) 
i  =  buf[6]  -  48; 
else 
i  =  -1; 
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return  i; 


}  //  end  of  ’lightStatus' 

int  sendReset(  void ) 

{ 

int  i,j,  k,  n_bytes_read,  n_rets; 
unsigned  char  msg[25]; 
clock_t  start,  end; 
double  darg,  elapsed; 

//  Set  up  the  commands  for  the  next  intensifier  power 

sprintf(  msg,  "Z\r"  ); 
tcflush(fd,  TCIOFLUSH); 

write(  fd,  msg,  strlen(msg) );  /*  and  send  the  whole  command  string  7 

start  =  clock();  /*  initialize  timeout  clock  V 

elapsed  =  0.0;  /*  initialize  read  duration  7 

//  Now  read  the  entire  buffer  for  SMARTMOTOR  return 

i=0; 
j  =  0; 
c  =  0; 

n_rets  =  1 ;  //  SMARTMOTOR  will  only  return  one  carriage  return 

//  printf  ("\nSending  command  to  SMARTMOTOR..." ); 

while  ((j  <  n_rets)  &&  (elapsed  <  20000))  //  long  timeout  for  HOME  routine 

{ 

n_bytes_read  =  read(fd,&c,1 );  //  read  the  SMARTMOTOR  port 

if  (n_bytes_read  ==  1) 
if  ( (buf[i++]  =  c)  ==13) 

j++;  /*  check  for  carriage  returns  7 

end  =  clock(); 

elapsed  =  ((double)(end-start))  *  1 000  /  CLOCKS_PER_SEC; 

) 

buffi]  =  0;  //  terminate  the  character  string 

//  printf ( "\nFinished  reading  SMARTMOTOR.  %d  bytes  read  in  %2.1f  msec,  string  is:  %s\n",  i, 
elapsed,  buf ); 

if  (elapsed  <  20000) 

j  =  i; 

else 

j  =  -i; 


//  printf("\nj  =  %d\n",  j ); 
return  j; 

}  //  end  of  ’sendReset’ 
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6.5  Include  file  for  SerialLib.c:  SerialLib.h 


#define  M AXDAT ABYTES  255 


#define  BAUDRATE  B9600  //  Data  collecting  baud  rate 

#define  MODEMDEVICE  "/dev/cuaO"  //  currently  set  for  COM1  (cuaO) 

//  #define  _POSIX_SOURCE  1  //  POSIX  compliant  source 


#define  MAX_TIMEOUT  2000.0 
#define  MAX_FPOS  6 
#define  MIN_FPOS  1 
#define  MAX_GAIN  3 
#define  MIN_GAIN  0 


//TIMEOUT  parameter  in  milliseconds 
//  Maximum  filterwheel  position 
//  Minimum  filterwheel  position 
//  Maximum  intensifier  gain 
//  Minimum  intensifier  gain 


int  filterWheel(  int ); 
int  intensifierGain(  int ); 
int  intensifierPower(int ); 
int  lightStatus(  int ); 
int  shutter(  int ); 
int  sendReset(  void ); 
int  openSerial(  char  * ); 
void  closeSerial(  void ); 


//  call  to  set  filterwheel  position 
//  call  to  set  intensifier  gain 
//  call  to  set  intensifier  power 
//  call  to  check  Light  Status 
//  call  to  the  shutter  control 
//  call  to  do  a  software  reset 
//  call  to  open  the  serial  port 
//  call  to  close  the  serial  port 
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6.6  IDL  Analysis  Routines:  asiptoois.pro 


PRO  tvImage.fileName 
XSIZE=670  &  YSIZE=650 
i16lmage=UINTARR(XSIZE,YSIZE) 
i16lmgParams=INTARR(16) 

OPENR,lunlmageFile,fileName,/GET_LUN 
READU,lunlmageFile,i1 6lmage 
FREE_LUN,lunlmageFile 
il  6lmgParams=i1 6lmage(0:20) 

;WINDOW,0,XSIZE=335,YSIZE=325  &  wset,0  ;  For  MPEG  movies 
;TVSCL,ROTATE(REBIN(i1 6lmage,335,325),2)  ; 

TVSCL,ROTATE(i16lmage,2)  ;  Flip  both  X  and  Y  dimensions 
;TVSCL,i16lmage 

;XYOUTS, 0.02,0.96, align=0.,STRING(i16lmgParams(3:5),FORMAT=’(l2. 2,":",  12.2,":", 12.2)’), /norm 
al,charsize=1.0 

;XYOUTS, 0.02,1. 96,  align=0.,STRING(i16lmgParams(0),  F0RMAT=’(I4.4)’) , /normal,  charsize=1.0 
myCharSize=1 .25 

monthname=[’Jan’,’Feb’,’Mar’,’Apr’,’May7Jun’,’Jul’,’Aug’,’Sep’,’Oct’,’Nov’,’Dec’] 

header=i1 6lmage(0:25) 

year=string(header(0)) 

if  header(l)  LE  12  and  header(l)  GT  0  then  month=’  ’+monthname(header(1)-1)  else  month=’  Err’ 

day=strcompress(string(header(2)),  /remove) 

hour=header(3) 

minute=header(4) 

second=header(5) 

time=string(hour,format=’(l2.2)’)+’:’+string(minute,format=’(l2.2)’)+’:’$ 
+string(second,format=’(l2.2)’)+’  UT’ 
wave=strcompress(string(header(6)),/rem)+string(byte(197)) 
gain=strcompress(string(header(7)),/rem) 

expos=strcompress(string(float(header(8)/10.),format=’(F6.1)’),/rem) 
xyouts,0.02,.96,align=0.,strcompress(day+month+year)+’!C’+time  $ 

+,!C’+wave+’!C’+expos+’s’+’!CG:  ’+gain, /normal, charsize=myCharSize 
;xyouts,0.98,.96,align=1.,charsize=0.75,’Expos:’+strcompress(expos)+’!CVFilt:’+strcompress(wav 
e)+’!C’+’Gain:’+strcompress(gain), /normal 
;xyouts, 0.02, 0.02,  align=0.,’Expos:’+strcompress(expos),  /normal 
if  n_elements(location)  NE  0  then 

xyouts,  0.02, 0.01  ,align=0.,  location, /normal,  charsize=myCharSize 
if  n_elements(equip)  NE  0  then  xyouts, .98,. 01  ,align=1.,’AFRL  ’+equip+’ 

Imager’, /normal, charsize=myCharSize  $ 

else  xyouts, .98, .01  ,align=1  ,,’AFOSR  All-Sky  Imager’, /normal, charsize=myCharSize 
;xyouts, 0.98, 0.02, align=1.,’Gain:’+strcompress(gain), /normal 
xyouts,  0.5, 0.96,  /normal,  align=.5,’N’,charsize=myCharSize 
xyouts, 0.5, 0.01, /normal, align=0.5, ’S’, charsize=myCharSize 
xyouts, 0.01 ,0.5, /normal, ’W’,charsize=myCharSize 
xyouts, 0.98, 0.5, /normal, align=1.,’E’,charsize=myCharSize 
xyouts, .02, .01  ,align=0.,’Ny  Alesund,  Svalbard’, /normal, charsize=myCharSize 
END 


PRO  MARKAZEL,XSIZE,YSIZE,XO,YO,B_COEFF,C_COEFF,AZ_OFFSET,AZ, EL, LABEL 
R=B_COEFF*SIN((90.-EL)*!DTOR)+C_COEFF*SIN((2.*(90.-EL))*!DTOR) 
X=XO+R*SIN((AZ+AZ_OFFSET)*!DTOR) 
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Y=YO+R*COS((AZ+AZ_OFFSET)*!DTOR) 
PL0TSIX,Y,PSYM=6, /DEVICE  ;  V  =  PSYM=1 

XYOUTS,X,Y, LABEL, /DEVICE 
END 


PRO  MAKEGRID,XSIZE,YSIZE,XO,YO,B_COEFF,C_COEFF,AZ_OFFSET 
FOR  EL=90, 0,-10  DO  BEGIN 

R=B_COEFF*SIN((90.-EL)*!DTOR)+C_COEFF*SIN((2.*(90.-EL))*!DTOR) 
FOR  AZ=0,360  DO  BEGIN 

X=XO+R*SIN((AZ+AZ_OFFSET)*!DTOR) 

Y=YO+R*COS((AZ+AZ_OFFSET)*!DTOR) 

IF  AZ  EQ  0  THEN  BEGIN 

IF  EL  NE  90  THEN  XYOUTS,X,Y,STRCOMPRESS(EL), /DEVICE 
PLOTS, X,Y, /DEVICE 
ENDIF 

PLOTS, X,Y, /CONTINUE, LINESTYLE=2, /DEVICE 
ENDFOR 
ENDFOR 

FOR  AZ=0,330,30  DO  BEGIN 
PLOTS, XO.YO, /DEVICE 
X=XO+R*SIN((AZ+AZ_OFFSET)*!DTOR) 
Y=YO+R*COS((AZ+AZ_OFFSET)*!DTOR) 

PLOTS, X,Y,/CONTINUE, /DEVICE 
XYOUTS,X,Y,STRCOMPRESS(AZ), /DEVICE 
ENDFOR 

END 


PRO  STARMAP 

XSIZE=670  &  YSIZE=650  &  XO=342  &  YO=302  &  B_COEFF=284  &  C_COEFF=-29  & 
AZ_OFFSET=0 

TVIMAGE,  Vnya/starmap/01 1 21 8_1 02935_6560_N  YA.keo’ 

MARKAZEL,XSIZE,YSIZE,XO,YO,B_COEFF,C_COEFF,AZ_OFFSET, 334.5, 13, ’Jupiter’ 
MARKAZEL,XSIZE,YSIZE,XO,YO,B_COEFF,C_COEFF,AZ_OFFSET, 152.5, 49,’  Vega’ 
MARKAZEL,XSIZE,YSIZE,XO,YO,B_COEFF,C_COEFF,AZ_OFFSET, 226,27,’  Arcturus’ 
MARKAZEL,XSIZE,YSIZE,XO,YO,B_COEFF,C_COEFF,AZ_OFFSET, 357.5, 35,’  Capella’ 
MARKAZEL,XSIZE,YSIZE,XO,YO,B_COEFF,C_COEFF,AZ_OFFSET,2,78.5,’  Polaris’ 
MARKAZEL,XSIZE,YSIZE,XO,YO,B_COEFF,C_COEFF,AZ_OFFSET, 48,54.5,’  Cas  Gamm-27’ 
MARKAZEL,XSIZE,YSIZE,XO,YO,B_COEFF,C_COEFF,AZ_OFFSET, 241.5, 55.5,’  Benetnasch’ 
MARKAZEL,XSIZE,YSIZE,XO,YO,B_COEFF,C_COEFF,AZ_OFFSET, 290, 59.5/  Dubhe’ 
MARKAZEL,XSIZE,YSIZE,XO,YO,B_COEFF,C_COEFF,AZ_OFFSET,1 15.5,51 ,’  Denab’ 

MAKEGRID,XSIZE,YSIZE,XO,YO,B_COEFF,C_COEFF,AZ_OFFSET 

myCharSize=1 .25 

xyouts,.98,.96,align=1.,’R=B_COEFF*SIN((90.-EL)*!!DTOR)+C_COEFF*SIN((2.*(90.- 
EL))*!!DTOR)’+  $ 

’!CX=XO+R*SIN((AZ+AZ_OFFSET)*!!DTOR)’+’!CY=YO+R*COS((AZ+AZ_OFFSET)*!!DTOR)’+ 

$ 
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’!CB_COEFF=284  C_COEFF=-29!CXO=342  YO=302!CAZ_OFFSET=0’+  $ 

’!C78d  55m  24.5s  N  LATIC1  Id  55m  48.0s  E  LON!C63m  ALT’, /normal, charsize=myCharSize 

T=TVRD() 

WRITE_JPEG,’~/nya/starmap/01 1 21 8_starmap.jpg’, T,QUALITY=1 00 
END 


PRO  MAKEMPEG,imageListFilename,outFileName  ;pn  16jan02 

;CD,’~/mpegtest/images’ 

filename^’ 

OPENR,imageListFile,imageListFileName,/GET_LUN 
mpegID  =  MPEG_OPEN([335,325]) 
i  =0 

WHILE  (NOT  EOF(imageListFile))  DO  BEGIN 
READF,imageListFile, filename 
PRINT, filename 
tvimage, filename 

MPEG_PUT, mpegID, WINDOW=0,FRAME=i, /ORDER 
i  =  i  +  1 
ENDWHILE 

FREE_LUN,imageListFile 

MPEG_SAVE,  mpegID,  FILENAME=outFileName 

MPEG_CLOSE, mpegID 

WDELETE,0 

END  ;End  of  program 

PRO  GETSPE,fileName,SPEIMAGE 
i16lmage=UINTARR(670,650) 
blmgParams=BYTARR(41 00) 

OPENR,lunlmageFile,fileName,/GET_LUN 

READU,lunlmageFile,blmgParams,i16lmage 

SPEIMAGE=i1 6lmage 

FREE_LUN,lunlmageFile 

END 


PRO  SPEDIFF,AFILE,BFILE,MEAN 
GETSPE,AFILE,AIMAGE 
GETSPE.BFILE,  BIMAGE 

IAI=ROTATE(LONG(AIMAGE)-LONG(BIMAGE),2) 

IMAGE_STATISTICS, IAI[330:360, 260:290], MEAN=MEAN,STDDEV=SD,MINIMUM=MIN, MAXIM 
UM=MAX 

PRINT, MEAN, SD, MIN, MAX, FORMAT=’(%”MEAN=%9.2f  SD=%9.2f  MIN=%9.2f  MAX=%9.2f'')’ 
END 


PRO  CCDBIAS 

CD,’/mnt/w2k/NYA  FEB02  CAL/CCD  NOISE’ 

GETSPE,’G2_e1_ccd_f1.SPE’,SIMAGE 

IAI=ROTATE(SIMAGE,2) 
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IMAGE_STATISTICS,  IAI[330:360, 260:290], MEAN=MEAN,STDDEV=SD,MINIMUM=MIN, MAXIM 
UM=MAX 

PRINT, MEAN, SD, MIN, MAX, FORMAT=’(%"MEAN=%9.2f  SD=%9.2f  MIN=%9.2f  MAX=%9.2f")’ 
END 

PRO  DARKNOISE 
PRINT, "GAIN  0:  * 

CD,’/mnt/w2k/NYA  FEB02  CAL/INT  NOISE’ 

SPEDIFF,’/mnt/w2k/NYA  FEB02  CAM  NT  NOISE/GO_e1  JntJI.SPE’,  $ 

’/mnt/w2k/NYA  FEB02  CAL/CCD  NOISE/G2_e1_ccd_f1.SPE\  MEAN 
PRINT,"GAIN  1: " 

CD,’/mnt/w2k/NYA  FEB02  CAM  NT  NOISE’ 

SPEDIFF,’/mnt/w2k/NYA  FEB02  CAMNT  NOISE/G1_e1  JntJI.SPE’,  $ 

7mnt/w2k/NYA  FEB02  CAL/CCD  NOISE/G2_e1_ccdJ1.SPE’,  MEAN 
PRINT, "GAIN  2:  ■ 

CD,’/mnt/w2k/NYA  FEB02  CAL/INT  NOISE’ 

SPEDIFF,7mnt/w2k/NYA  FEB02  CAL/INT  NOISE/G2_e1  JntJI  .SPE’,  $ 

7mnt/w2k/NYA  FEB02  CAL/CCD  NOISE/G2_e1_ccd_f1  .SPE’,  MEAN 

END 

PRO  CAL6300  ;  6300/1 6A  PO:00-1 68  LOT  0501 

PRINT, "GAIN  0:  ” 

SPEDIFF,’/mnt/w2k/NYA  FEB02  CAL/GAIN  0  SRC  &  BKGD/G0_E1_A0B09_F1.SPE’,  $ 
7mnt/w2k/NYA  FEB02  CAL/GAIN  0  SRC  &  BKGD/G0_e1_BKGD_f1  .SPE’,  MEAN 
PRINT, "LCR=”,  MEAN  /  (5.925E-3  *  8.61  E4  *  16.) 

PRINT, "GAIN  1: " 

SPEDIFF,7mnt/w2k/NYA  FEB02  CAL7GAIN  1  SRC  &  BKGC/G1_E1_A0B05_F1.SPE’,  $ 
7mnt/w2k/NYA  FEB02  CAL/GAIN  1  SRC  &  BKGC/G1_E1_BKGD_F1. SPE’, MEAN 
PRINT, “LCR=”,  MEAN  /  (4.429E-4  *  8.61  E4  *  16.) 

PRINT, "GAIN  2:  ” 

SPEDIFF,’/mnt/w2k/NYA  FEB02  CAL/GAIN  2  SRC  &  BKGD/G2_E1_A0B02_F1.SPE’,  $ 
7mnt/w2k/NYA  FEB02  CAL/GAIN  2  SRC  &  BKGD/G2_E1_BKGD_F1. SPE’, MEAN 
PRINT, ”LCR=",  MEAN  /  (5.51 8E-5  *  8.61  E4  *  16.) 

END 

PRO  CAL5577  ;  5577/1 6A  PO:00-1 68  LOT  0601 

PRINT, "GAIN  0:  “ 

SPEDIFF,7mnt/w2k/NYA  FEB02  CAL/GAIN  0  SRC  &  BKGD/G0_E1_A0B09_F2.SPE’,  $ 
7mnt/w2k/NYA  FEB02  CAL/GAIN  0  SRC  &  BKGD/G0_e1_BKGD_f2.SPE’,  MEAN 
PRINT, "LCR=",  MEAN  /  (5.925E-3  *  4.4579E4  *  16.) 

PRINT, "GAIN  1:  ” 

SPEDIFF,7mnt/w2k/NYA  FEB02  CAL/GAIN  1  SRC  &  BKGC/G1_E1_A0B05_F2.SPE’,  $ 
7mnt/w2k/NYA  FEB02  CAL/GAIN  1  SRC  &  BKGC/G1_E1_B«GD_F2.SPE’,MEAN 
PRINT, "LCR=",  MEAN  /  (4.429E-4  *  4.4579E4  *  16.) 

PRINT, "GAIN  2:  ” 

SPEDIFF,’/mnt/w2k/NYA  FEB02  CAL/GAIN  2  SRC  &  BKGD/G2_E1_A0B02_F2.SPE’,  $ 
7mnt/w2k/NYA  FEB02  CAL/GAIN  2  SRC  &  BKGD/G2_E1_BKGD_F2. SPE’, MEAN 
PRINT, "LCR=”,  MEAN  /  (5.51 8E-5  *  4.4579E4  *  16.) 

END 

PRO  CAL4278  ;  4278/25A  P0:00-168  LOT  4801 

PRINT, "GAIN  0: " 

SPEDIFF,’/mnt/w2k/NYA  FEB02  CAL7GAIN  0  SRC  &  BKGD/G0_E1_A0B09_F3.SPE’,  $ 
7mnt/w2k/NYA  FEB02  CAL/GAIN  0  SRC  &  BKGD/G0_e1_BKGD_f3.SPE’,  MEAN 
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PRINT, "LCR-",  MEAN  /  (5.925E-3  *  6.841 6E3  *  25.) 

PRINT, "GAIN  1: " 

SPEDIFF,7mnt/w2k/NYA  FEB02  CAL/GAIN  1  SRC  &  BKGC/G1_E1_A0B05_F3.SPE’,  $ 
7mnt/w2k/NYA  FEB02  CAL/GAIN  1  SRC  &  BKGC/G1_E1_BKGD_F3.SPE’,MEAN 
PRINT, "LCR=“,  MEAN  /  (4.429E-4  *  6.841 6E3  *  25.) 

PRINT, "GAIN  2: " 

SPEDIFF,7mnt/w2k/NYA  FEB02  CAL/GAIN  2  SRC  &  BKGD/G2_E1_A0B02_F3.SPE’,  $ 
7mnt/w2k/NYA  FEB02  CAL/GAIN  2  SRC  &  BKGD/G2_E1_BKGD_F3.SPE’,MEAN 
PRINT, "LCR-",  MEAN  /  (5.51 8E-5  *  6.841 6E3  *  25.) 

END 

PRO  CAL7774  ;  7774/1 6A  PO:00-1 68  LOT  0501 

PRINT, “GAIN  0: " 

SPEDIFF,7mnt/w2k/NYA  FEB02  CAL/GAIN  0  SRC  &  BKGD/G0_E1_A0B09_F4.SPE’,  $ 
7mnt/w2k/NYA  FEB02  CAL/GAIN  0  SRC  &  BKGD/G0_e1_BKGD_f4.SPE’,  MEAN 
PRINT, "LCR=",  MEAN  /  (5.925E-3  *  1 .4208E5  *  16.) 

PRINT, "GAIN  1:" 

SPEDIFF,7mnt/w2k/NYA  FEB02  CAL/GAIN  1  SRC  &  BKGC/G1_E1_A0B05_F4.SPE’,  $ 
7mnt/w2k/NYA  FEB02  CAL/GAIN  1  SRC  &  BKGC/G1_E1_BKGD_F4.SPE’,MEAN 
PRINT, "LCR-",  MEAN  /  (4.429E-4  *  1.4208E5  *  16.) 

PRINT, "GAIN  2:  “ 

SPEDIFF,7mnt/w2k/NYA  FEB02  CAL/GAIN  2  SRC  &  BKGD/G2_E1_A0B02_F4.SPE’,  $ 
7mnt/w2k/NYA  FEB02  CAL/GAIN  2  SRC  &  BKGD/G2_E1  _BKGD_F4.SPE’,MEAN 
PRINT, "LCR-",  MEAN  /  (5.51 8E-5  *  1.4208E5  *  16.) 

END 

PRO  CAL6560  ;  6560/30A  PO:  00-1 68  LOT  0401 

PRINT, "GAIN  0: " 

SPEDIFF,7mnt/w2k/NYA  FEB02  CAL/GAIN  0  SRC  &  BKGD/G0_E1_A0B09_F5.SPE’,  $ 
7mnt/w2k/NYA  FEB02  CAL/GAIN  0  SRC  &  BKGD/G0_e1_BKGD_f5.SPE’,  MEAN 
PRINT, "LCR-",  MEAN  /  (5.925E-3  *  9.93E4  *  30.) 

PRINT, "GAIN  1:  “ 

SPEDIFF,7mnt/w2k/NYA  FEB02  CAL/GAIN  1  SRC  &  BKGC/G1_E1_A0B05_F5.SPE’,  $ 
7mnt/w2k/NYA  FEB02  CAL/GAIN  1  SRC  &  BKGC/G1  _E1  _BKG D_F5.SPE’,MEAN 
PRINT, "LCR-",  MEAN  /  (4.429E-4  *  9.93E4  *  30.) 

PRINT, "GAIN  2: " 

SPEDIFF,7mnt/w2k/NYA  FEB02  CAL/GAIN  2  SRC  &  BKGD/G2_E1_A0B02_F5.SPE’,  $ 
7mnt/w2k/NYA  FEB02  CAL/GAIN  2  SRC  &  BKGD/G2_E1_BKGD_F5.SPE’,MEAN 
PRINT, "LCR-",  MEAN  /  (5.51 8E-5  *  9.93E4  *  30.) 

END 

PRO  VIGNETTE 

GETSPE,7mnt/w2k/NYA  FEB02  CALA/IGNETTING/G0_e4_vig_f1.SPE\SIMAGE 
GETSPE,7mnt/w2k/NYA  FEB02  CAL/VIGNETTING/G0_e4_vig_f2.SPE’, BIMAGE 
VIMAGE-  SIMAGE  >  BIMAGE 

G ETS P E ,7m nt/w2k/N YA  FEB02  CAL/VIGNETTING/G0_e4_vig_f4.SPE’, BIMAGE 
VIMAGE-  VIMAGE  >  BIMAGE 

GETSPE,7mnt/w2k/NYA  FEB02  CAL/VIGNETTING/G0_e4_vig_f6.SPE’, BIMAGE 
VIMAGE=  VIMAGE  >  BIMAGE 

GETSPE,7mnt/w2k/NYA  FEB02  CALA/IGNETTING/G0_e4_vig  J8.SPE', BIMAGE 
VIMAGE-  VIMAGE  >  BIMAGE 

GETSPE,7mnt/w2k/NYA  FEB02  C AL/V I G N ETT I N G/G 0_e4_vi g_f 9 .SPE’, BIMAGE 
VIMAGE- VIMAGE  >  BIMAGE 

GETSPE,7mnt/w2k/NYA  FEB02  CAL/VIGNETTING/G0_e4_vig_F10.SPE’, BIMAGE 
VIMAGE-  VIMAGE  >  BIMAGE 
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GETSPE,7mnt/w2k/NYA  FEB02  CAL/VIGNETTING/G0_e4_vig_F11.SPE’, BIMAGE 
VIMAGE=  VIMAGE  >  BIMAGE 

GETSPE,7mnt/w2k/NYA  FEB02  CAL7VIGNETTING/G0_e4_vig_F1 2. SPE’, BIMAGE 
VIMAGE=  VIMAGE  >  BIMAGE 

GETSPE,7mnt/w2k/NYA  FEB02  CAL7VIGNETTING/G0_e4_vig_F1 3. SPE’, BIMAGE 
VIMAGE=  VIMAGE  >  BIMAGE 

GETSPE,7mnt/w2k/NYA  FEB02  CAL/INT  NOISE/GO_e4_int_f1  .SPE’.INTBACKGD 
VIMAGE=R0TATE(L0NG(VIMAGE)-L0NG(INTBACKGD),2) 


IMAGE_STATISTICS,  VIMAGE[330:360, 260:290], MEAN=MEAN,STDDEV=SD,MINIMUM=MINIM 
AXIMUM=MAX 

PRINT, MEAN, SD, MIN, MAX, FORMAT=’(%"MEAN=%9.2f  SD=%9.2f  MIN=%9.2f  MAX=%9.2f")’ 
ZCOUNT=MEAN 

IMAGE_ST ATISTICS,VIMAGE[440:470, 260:290], MEAN=MEAN,STDDEV=SD,MINIMUM=MIN,M 
AXIMUM=MAX 

PRINT, MEAN, SD, MIN, MAX, FORMAT=’(%"MEAN=%9.2f  SD=%9.2f  MIN=%9.2f  MAX=%9.2f")’ 
COUNT  ATI  03=MEAN 

IMAGE_STATISTICS,VIMAGE[605:61 5, 260:290], MEAN=MEAN,STDDEV=SD,MINIMUM=MIN,M 
AXIMUM=MAX 

PRINT, MEAN, SD, MIN, MAX, FORMAT=’(%"MEAN=%9.2f  SD=%9.2f  MIN=%9.2f  MAX=%9.2f")’ 


;y=A+Bx  ->  A=y-Bx,  B=(ZCOUNT-COUNTAT103)/103. 

PRINT, ’A=’,  ZCOUNT -(ZCOUNT -COUNT AT 1 03)/1 03.*284. 

PRINT, ’1  -NORMALIZED=’,1  ,-(ZCOUNT-(ZCOUNT-COUNTAT1 03)/1 03.*284.)/ZCOUNT 
END 

PRO  GETCOEFF 

Y=FLTARR(91) 

X=FLTARR(91) 

XSIZE=670  &  YSIZE=650  &  XO=342  &  YO=302  &  B_COEFF=284  &  C_COEFF=-29  & 
AZ_OFFSET=0 
FOR  1=0,90  DO  BEGIN 

X(l)=B_COEFF*SIN((l)*!DTOR)+C_COEFF*SIN((2.*(l))*!DTOR) 

Y(l)=l 

;  PRINT, Y(I),X(I) 

ENDFOR 

COEFFS=POLY_FIT(X,Y,  4, /DOUBLE) 

PRINT, COEFFS 

END 
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6.7  IDL  Interactive  GUI-based  program:  allsky.pro 


;;;  Modified  from  version  1 .5  for  new  ASIP  Peter  Ning  1 3Mar03 
;TUESDAY,  DECEMBER  22,  1998,  8:55:19  AM  -  version  1.5 


iMMinnnmn) 

;;;  PRO  ALLSKY ;;; 


mm  n  imill  in 


PRO  ALLSKY 

BASE=W I DG ET_BASE(TITLE=' ALLSKY  TEST  FOR  NYA01  DATA',  /COLUMN) 

TOPROW=WIDGET_BASE(BASE,  /FRAME,  /ROW) 
BOTROW=WIDGET_BASE(BASE,  /FRAME,  /ROW) 

W_FILE=WIDGET_BUTTON(TOPROW,  VALUE='FILE',  /MENU) 
W_GRAPH=WIDGET_BUTTON(TOPROW,  VALUE=’GRAPH\  /MENU) 
W_OPTION=WIDGET_BUTTON(TOPROW,  VALUE='OPTIONS’,  /MENU) 

W_COO  R  D=W  I  DG  ET_B  UTTO  N  (TO  PROW ,  VALUE='COORDINATES',  /MENU) 
W_SYSTEM=WIDGET_BUTTON(TOPROW,  VALUE='SYSTEM',  /MENU) 

W_FILE_B1=WIDGET_BUTTON(W_FILE,  VALUE='OPEN',  UVALUE='OPEN') 
W_F  I  LE_B2=W  I  DG  ET_B  UTT  O  N  (W_FILE ,  VALUE='QUIT',  UVALUE='QUIT') 

W_GRAPH_B1=WIDGET_BUTTON(W_GRAPH,  VALUE='XWINDOW',  $ 
UVALUE='XWINDOW') 

W_GRAPH_B2=WIDGET_BUTTON(W_GRAPH,  VALUE='PS  FILE',  $ 
UVALUE='PS  FILE’) 

W_GRAPH_B3=WIDGET_BUTTON(W_GRAPH,  VALUE='SAMPLE',  $ 
UVALUE='SAMPLE') 

OPTION=FLTARR(3) 

W_OPTION_B1=WIDGET_BUTTON(W_OPTION,  VALUE='  MERIDIAN',  $ 
UVALUE='MERIDIAN') 

OPTION(0)=0 

W_OPTION_B2=WIDGET_BUTTON(W_OPTION,  VALUE='+  NY  ALESUND',  $ 
UVALUE='ALESUND') 

OPTION(1)=1 

W_OPTION_B3=WIDGET_BUTTON(W_OPTION,  VALUE='  LONGYEARBYEN',  $ 
UVALUE='LONGYEAR') 

OPTION(2)=0 

W_COO  R  D_B  1  =W  I  DG  ET_B  UTTON(W_COORD,  VALUE='+  GEOGRAPHIC',  $ 
UVALUE='GEOGRAPHIC') 

W_COO  R  D_B2=W  I  DG  ET_B  UTTON  ( W_COO  R  D,  VALUE='  MAGNETIC',  $ 
UVALUE='MAGNETIC') 

W_SYS_B1=WIDGET_BUTTON(W_SYSTEM,  VALUE='+  BIT  SWAP',  $ 
UVALUE='BITSWAP') 

LCOL=WIDGET_BASE(BOTROW,  /FRAME,  /COLUMN) 
RCOL=WIDGET_BASE(BOTROW,  /FRAME,  /COLUMN) 


85 


TRCOL=WIDGET_BASE(RCOL,  /FRAME,  /COLUMN) 
MRCOL=WIDGET_BASE(RCOL,  /FRAME,  /COLUMN) 
BRCOL=WIDGET_BASE(RCOL,  /FRAME,  /COLUMN) 

MIDROW=WIDGET_BASE(LCOL,  /ROW) 

W  M  R_D  ATE_B  AS  E=W  I DG  ET_B  AS  E(MIDROW,/ROW) 
W_DATE_LABEL=WIDGET_LABEL(WMR_DATE_BASE,  VALUE="DATE:") 
W_DATE_TEXT=WIDGET_LABEL(WMR_DATE_BASE,  VALUE="  ?????????") 

W M R_T I M E_B AS E= W IDG ET_B AS E (M I D RO W ,  /ROW ) 
W_TIME_LABEL=WIDGET_LABEL(WMR_TIME_BASE,  VALUE="  TIME:") 
W_TIME_TEXT=WIDGET_LABEL(WMR_TIME_BASE,  VALUE="??:??:??") 

WMR_FILTER_BASE=WIDGET_BASE(MIDROW,  /ROW) 

W_FILTER_LABEL=WIDGET_LABEL(WMR_FILTER_BASE,  VALUE="  FILTER:") 
W_FILTER_TEXT=WIDGET_LABEL(WMR_FILTER_BASE,  VALUE="????") 

WMR_ALT_BASE=WIDGET_BASE(MIDROW,  /ROW) 
W_ALT_LABEL=WIDGET_LABEL(WMR_ALT_BASE,  VALUE="  ALT:") 
W_ALT_TEXT=WIDGET_LABEL(WMR_ALT_BASE,  VALUE="???.?") 

WMR_FILE_BASE=WIDGET_BASE(MIDROW,  /ROW) 
W_FILE_LABEL=WIDGET_LABEL(WMR_FILE_BASE,  VALUE="  FILE:") 

W_F  I  LE_T  EXT = W I  DG  ET_LAB  E  L(  W  M  R_F  I  LE_B  AS  E , 
VALUE="??????????????????????????") 


WXSZ=670  ;pn  -  was  500 
WYSZ=650  ;pn  -  was  500 
WX=0 
WY=0 

W_DRAW=WIDGET_DRAW(LCOL,  XSIZE=WXSZ,  YSIZE=WYSZ,  $ 
/MOTION_EVENTS,  RETAIN=2) 

BOTRO W  =W  I  DG ET_BAS E(LCOL,  /ROW) 

W_LAT_B AS  E=W  I  DG  ET_BAS  E(BOT ROW ,  /RO  W) 
W_LAT_LABEL=WIDGET_LABEL(W_LAT_BASE,  VALUE="LATITUDE:") 
W_LAT_TEXT=WIDGET_LABEL(W_LAT_BASE,  VALUED  000.00’) 

W_LON_BASE=WIDGET_BASE(BOTROW,  /ROW) 

W_LON_LABEL=WIDGET_LABEL(W_LON_BASE,  VALUE=“LONGITUDE:“) 
W_LON_T  EXT =W  I  DG  ET_LAB  EL(  W_LO  N_B  AS  E ,  VALUED  000.00’) 

W_RAY_BASE=WIDGET_BASE(BOTROW,  /ROW) 
W_RAY_LABEL=WIDGET_LABEL(W_RAY_BASE,  VALUE=”RAYLEIGH:“) 
W_RAY_TEXT=WIDGET_LABEL(W_RAY_BASE,  VALUE=’0000.0’) 

W_EXP_B AS  E=W  I  DG  ET_B AS  E  (BOTRO W ,  /ROW ) 

W_EXP_LABEL=W  I  DG  ET_LABEL(W_EXP_BASE,  VALU  E=”EXPOSURE:") 
W_EXP_TEXT=WIDGET_LABEL(W_EXP_BASE,  VALUE=’00.0’) 

W_GAIN_BASE=WIDGET_BASE(BOTROW,/ROW) 
W_GAIN_LABEL=WIDGET_LABEL(W_GAIN_BASE,  VALUE="GAIN:") 
W_GAIN_TEXT=WIDGET_LABEL(W_GAIN_BASE,  VALUE=’0’) 
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;DEFAULT  READ  DIRECTORY 
DIR=’~/nya/starmap/’ 

PDIR=DIR 

W_DIRECTORY_LABEL=WIDGET_LABEL(TRCOL,  VALUE=’FILE  DIRECTORY’) 
W_DIRECTORY_TEXT=WIDGET_TEXT(TRCOL,  VALUE=DIR,  /EDITABLE) 

IMGLIST=FINDFILE(DIR) 

FILE=IMGLIST(0) 

PFILE=FILE 

W_IMAGEFILE_LABEL=WIDGET_LABEL(TRCOL,  VALUE=’FILE  LIST’) 
W_IMAGEFILE_LIST=WIDGET_LIST(TRCOL,  VALUE=IMGLIST,  $ 
UVALUE=IMGLIST,  YSIZE=5) 

W_FISHEYE=WIDGETJ3UTTON(TRCOL,  VALUE=’QUICK  VIEW  ON’,  $ 
UVALUE=’QUICKVIEW’) 


ALT=” 

W_ALT_BAS E=W I DG ET_BASE(TRCOL,  /ROW) 

W_ALT ITU D E_LABEL=W  I DG  ET_B UTTO N  ( W_ALT_B AS E ,  $ 
VALUE=’ALTITUDE’,  /MENU) 

W_ALT ITU  D E_T EXT =W  I D G  ET_TEXT ( W_ALT_B AS E ,  $ 

VALUE=ALT,  /EDITABLE) 

W_ALT_B1=WIDGET_BUTTON(W_ALTITUDE_LABEL,  VALUE=’120  KM’,  $ 
UVALUE=’a120’) 

W_ALT_B2=W  I  DG  ET_B  UTTO  N  (W_ALT  ITU  D  E_LAB  EL,  VALUE=’160  KM’,  $ 
UVALUE=’a160’) 

W_ALT_B3=W  I  DG  ET_B UTTON (W.ALTIT U D E_LABEL,  VALUE=’200  KM’,  $ 
UVALUE=’a200’) 

W_ALT_B4=WIDGET_BUTTON(W_ALTITUDE_LABEL,  VALUE=’250  KM’,  $ 
UVALUE=’a250') 

W_ALT_B5=WIDGET_BUTTON(W_ALTITUDE_LABEL,  VALUE=’300  KM’,  $ 
UVALUE=’a300’) 

W_ALT_B6=W  I  DG  ET_B  UTTON  (W_ALTIT  U  D  E_LAB  EL,  VALUE=’350  KM’,  $ 
UVALUE=’a350’) 

COLOR=’GRAY’ 

W_COLOR_BASE=WIDGET_BASE(TRCOL,  /ROW) 

W_COLOR_LABEL=WIDGET_BUTTON(W_COLOR_BASE,  $ 
VALUE=’COLOR’,  /MENU) 

W_COLOR_TEXT=WIDGET_TEXT(W_COLOR_BASE,  $ 

VALUE=COLOR) 

W_COL_B1=WIDGET_BUTTON(W_COLOR_LABEL,  VALUE=’GRAY’,  $ 
UVALUE=’GRAY’) 

W_COL_B2=WIDGET_BUTTON(W_COLOR_LABEL,  VALUE=’RED’,  $ 
UVALUE=’RED’) 

W_CO L_B3= W I  DG ET_BUTT O N ( W_CO LO R_LABE L,  VALUE=’GREEN’,  $ 
UVALUE=’GREEN’) 

W_COL_B4=WIDGET_BUTTON(W_COLOR_LABEL,  VALUE=’BLUE’,  $ 
UVALUE=’BLUE’) 

W_CO  L_B5= W I  DG  ET_B  UTTO  N  ( W_CO  LO  R_L  AB  E  L ,  VALUE=’RAINBOW1’,  $ 
UVALUE=’RAINBOW1’) 

W_COL_B6= W I  DG  ET_B  UTTO  N  (W_CO  LOR_LAB  EL,  VALUE=’RAINBOW2’,  $ 
UVALUE=’RAINBOW2’) 
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scl=’4000’ 

W_scl_BASE=WIDGET_BASE(TRCOL,  /ROW) 
W_scl_LABEL=WIDGET_BUTTON(W_scl_BASE,  $ 

VALU E=’SCALE’,  /MENU) 
W_scl_TEXT=WIDGET_TEXT(W_scl_BASE,  $ 

VALUE=scl,  /EDITABLE) 

W_scl_B1=WIDGET_BUTTON(W_scl_LABEL,  VALUE=’500’,  $ 
UVALUE=’s500’) 

W_scl_B2=W  I DG  ET_BUTTON  ( W_scl_LABEL,  VALU  E=’1 000’,  $ 
U  VALUERS 1000’) 

W_scl_B3=WI DG ET_BUTT ON (W_scl_LABEL,  VALUE=’1500’,  $ 
UVALUE=’s1 500’) 

W_scl_B4=W I DGET_BUTTON (W_scl_LABEL,  VALUE=’2000’,  $ 
UVALUE=’s2000’) 

W_scl_B5=W  I  DG  ET_BUTT  0  N  ( W_scl_LAB  EL,  VALUE=’3000’,  $ 
UVALUE=’s3000’) 

W_scl_B6=W  I  DG  ET_BUTTON  (W_scl_LABEL,  VALUE=’4000’,  $ 
U  VALU  E=’s4000') 

VIEW  =20 

W_VIEW_ALT=WIDGET_SLIDER(MRCOL,  VALUE=VIEW,  $ 
TITLE=’  VIEWING  ALTITUDE  ’,  $ 
MAXIMUM=60,MINIMUM=5) 

SATLIST=STRARR(20) 

SATLIST(0)=DIR 

W_SAT_LABEL=WIDGET_LABEL(BRCOL,  $ 

VALUE=’  SATELLITE  LIST  ’) 
W_SAT_LIST=WIDGET_LIST(BRCOL,  VALUE=SATLIST(1:*),  $ 
UVALUE=SATLIST,  YSIZE=4) 

W_S  AT_B1  =W  I  DG  ET_BUTTON  (BRCOL,  VALUE=’ADD’,  $ 
UVALUE=’ADD’) 

W_S  AT_B2=W  I  DG  ET_BUTT  ON  (BRCOL,  VALUE=’REMOVE’,  $ 
UVALUE=’REMOVE’) 

WIDGET_CONTROL,  BASE,  /REALIZE 

WIDGET_CONTROL,  /HOURGLASS 

WIDGET_CONTROL,  W_DRAW,  GET_VALUE=INDEX 

SET_COLOR, COLOR, TP 

WDGT=INTARR(40) 

WDGT(4)=W_DIRECTORY_TEXT 

WDGT(6)=W_IMAGEFILE_LIST 
WDGT(7)=W_ALTITUDE_TEXT 
WDGT  (8)=W_DATE_TEXT 
WDGT(9)=W_TIME_TEXT 
WDGT(1 0)=W_FILTER_TEXT 
WDGT(1 1  )=W_VIEW_ALT 
WDGT(12)=W_SYS_B1 
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WDGT(1 5)=W_ALT_TEXT 
WDGT(1 6)=W_FILE_TEXT 
wdgt(1 7)=w_scl_text 
W  DGT  (1 8)=W_FISH  EYE 
WDGT(1 9)=W_SAT_LIST 
WDGT(20)=W_LAT_TEXT 
WDGT(21  )=W_LON_TEXT 
W  DGT  (22)=W_RAY_TEXT 
WDGT(23)=W_EXP_TEXT 
WDGT(24)=W_GAIN_TEXT 
WDGT(25)=TOPROW 

WDGT  (28)=RCOL 

WDGT(31  )=W_COLOR_TEXT 

WDGT  (32)=W_COO  R  D_B  1 

WDGT(33)=W_COORD_B2 

WDGT(34)=W_OPTION_B1 

WDGT(35)=W_OPTION_B2 

WDGT(36)=W_OPTION_B3 


FLAGS=INTARR(10) 

FLAGS(0)=0  ;1  IF  A  VALID  FILE  HAS  BEEN  LOADED  INTO  MEMORY 
FLAGS(1)=0  ;1  IF  AN  ALTITUDE  HAS  BEEN  SELECTED 
FLAGS(2)=1  ;1  IF  AN  I/O  ERROR  OCCURED  WHILE 
;  READING  OR  WRITING  A  FILE 
FLAGS(3)=0  ;pn  -  changed  to  0  - 1  TO  SWAP  THE  BIT  ORDER 
FLAGS(4)=0  ;1  TO  READ  PIXEL  VALUES  AT  MOUSE  LOCATION 
FLAGS(5)=1  ;1  TO  PLOT  RAW  FISHEYE  IMAGE  ON  SCREEN 
FLAGS(6)=0  ;1  IF  CURRENT  IMAGE  AND  ALTITUDE  HAVE  ALREADY 
;  BEEN  PLOTED  ON  SCREEN 

FLAGS(7)=0  ;1/0  FOR  PLOTTING  GEO/MAG  COORDS.  OVER  IMAGE 

PWIN=INTARR(6) 

PWIN(0)=WXSZ 

PWIN(1)=WYSZ 

PWIN(2)=INDEX 

PWIN(3)=TP 

PWIN(4)=WX 

PWIN(5)=WY 

;NY  ALESUND 
SITEELEV=0.063  ;  KM 
SITELAT=78.92  ;  DEGREES 
SITELON=1 1 .93  ;  DEGREES 

DELLAT=((7.0)/325.0)*VIEW*10.0 
DELLON=((27.0)/325.0)*VIEW*1 0.0 
SITELATMIN=SITELAT-DELLAT 
SITELATM  AX=SITELAT +DELLAT 
SITELONMIN=SITELON-DELLON 
SITELONMAX=SITELON+DELLON 

PLOC=FLTARR(9) 
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PLOC(0)=SITEELEV 

PL0C(1  )=SITELAT 

PL0C(2)=SITEL0N 

PLOC(3)=ALT 

PL0C(4)=SITELATMIN 

PL0C(5)=SITELATMAX 

PL0C(6)=SITEL0NMIN 

PL0C(7)=SITEL0NMAX 

ploc(8)=scl 

ST ATE={WDGT :W DGT,  FLAGS:FLAGS,  PWIN:PWIN,  $ 
PLOC:PLOC,  OPTION:OPTION,  DIR:DIR,  $ 

FILE:FILE,  PDIR:PDIR,  PFILE:PFILE,  $ 

LATiO.O,  LON:0.0,  TRIANGLES:0.0,  $ 

IAI:0.0,  INFO:0.0,  MAPIMAGE:0.0,  MAP:0.0} 

WIDGET_CONTROL,  BASE,  SET_U VALU E=ST ATE 

XMANAGER,  "ALLSKY",  BASE 

END 


;;;  PRO  ALLSKY_EVENT  ;;; 


PRO  ALLSKY_EVENT,  EV 

WIDGET_CONTROL,  EV.TOP,  GET_UVALUE=STATE 

TYPE=TAG_NAMES(EV,  /STRUCTURE_NAME) 

IF  (EV.ID  EQ  STATE.WDGT(4))  THEN  TYPE="DIRECTORY“ 

IF  (EV.ID  EQ  STATE.WDGT(7))  THEN  TYPE="ALTITUDE" 

IF  (EV.ID  EQ  STATE.WDGT(6))  THEN  T  YPE="  I  MAG  E_LI  ST" 

IF  (EV.ID  EQ  STATE.WDGT(17))  THEN  TYPE="SCALE“ 

IF  (EV.ID  EQ  STATE.WDGT(1 9))  THEN  TYPE="SAT_LIST" 

CASE  TYPE  OF 

"WIDGET_SLIDER" :  BEGIN 
WIDGET_CONTROL, EV.ID, GET_VALUE=VIEW 
DELLAT=(7.0/325.0)*VIEW*10.0 
DELLON=(27.0/325.0)*VIEW*1 0.0 
STATE.PLOC(4)=STATE.PLOC(1)-DELLAT 
STATE.PLOC(5)=STATE.PLOC(1)+DELLAT 
STATE.PLOC(6)=STATE.PLOC(2)-DELLON 
STATE.PLOC(7)=STATE.PLOC(2)+DELLON 
STATE.FLAGS(6)=0 

W  IDG  ET_CONTROL,  EV.TOP, SET_U  VALU  E=STATE 
ENDCASE 
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" W I DG ET_D RAW “ :  BEGIN 
IF  STATE. FLAGS(4)  EQ  1  THEN  BEGIN 
XSTACK=!X 
YSTACK=!Y 
!X=STATE.MAP.X 
!Y=STATE.MAP.Y 

LLPOS=CONVERT_COORD(EV.X,  EV.Y, /DEVICE, /TO_DAT A) 
IF  (STATE.FLAGS(7)  EQ  0)  THEN  BEGIN 
WIDGET_CONTROL,  STATE.WDGT(20),  $ 
SET_VALUE=STRTRIM(STRING(FORMAT=’(F7.2)’,  $ 
LLPOS(0)),2) 

WIDGET_CONTROL,  STATE.WDGT(21),  $ 
SET_VALUE=STRTRIM(STRING(FORMAT=’(F7.2)’,  $ 
LLPOS(1)),2) 

ENDIFELSE  BEGIN 

GEOMAG,  LLPOS(1  ),LLPOS(0),POS1  .POS2.1 
WIDGET_CONTROL,  STATE.WDGT(20),  $ 
SET_VALUE=STRTRIM(STRING(FORMAT=’(F7.2)’,  $ 
POS1),2) 

WIDGET_CONTROL,  STATE.WDGT(21),  $ 
SET_VALUE=STRTRIM(STRING(FORMAT=’(F7.2)’,  $ 
POS2),2) 

ENDELSE 

PIC=FLOAT(TVRD(EV.X, EV.Y,  1,1)) 

TP=FLO  AT  (ST  ATE.  PW  IN  (3)) 

IF  ((PIC(O)  GT  0)  AND  (PIC(O)  LT  TP-1))  THEN  BEGIN 
RAY=((PIC(0)-1.0)/(TP-3.0))*STATE.PLOC(8) 

ENDIF  ELSE  BEGIN 
RAY=0.0 
ENDELSE 

WIDGET_CONTROL,  STATE.WDGT(22),  $ 
SET_VALUE=STRTRIM(STRING(FORMAT=’(F6.1)’,  $ 
RAY(0,0)),2) 

!X=XSTACK 

!Y=YSTACK 

ENDIF 

ENDCASE 

"WIDGET_BUTTON" :  BEGIN 
WIDGET_CONTROL,  EV.ID,  GET_UVALUE=UV 

IF  ((UV  EQ  ’GRAY)  OR  (UV  EQ  ’RED’)  OR  $ 

(UV  EQ  ’GREEN’)  OR  (UV  EQ  ’BLUE’)  OR  $ 

(UV  EQ  ’RAINBOW1’)  OR  (UV  EQ  ’RAINBOW2’))  $ 

THEN  BEGIN 
COLOR=UV 
UV=’COLORT  ABLE’ 

ENDIF 

IF  ((UV  EQ  ’a120’)  OR  (UV  EQ  ’a160’)  OR  $ 

(UV  EQ  ’a200’)  OR  (UV  EQ  ’a250’)  OR  $ 

(UV  EQ  ’a300’)  OR  (UV  EQ  ’a350’))  THEN  BEGIN 
ALT=strmid(UV,1 ,4) 

UV=’SELECTALT’ 

ENDIF 
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IF  ((UV  EQ  ’s500’)  OR  (UV  EQ  ’si  000’)  OR  $ 

(UV  EQ  ’si  500’)  OR  (UV  EQ  ’s2000’)  OR  $ 

(UV  EQ  ’S3000’)  OR  (UV  EQ  ’s4000’))  THEN  BEGIN 
SCL=strmid(UV,1,5) 

UV=’SELECTSCL’ 

ENDIF 

CASE  UV  OF 
''QUir' :  BEGIN 

M_BASE=WIDGET_BASE(TITLE=’MESSAGE’,  /COLUMN,  $ 
GROUP_LEADER=EV.TOP,  /MODAL) 
M_TEXT=WIDGET_label(M_BASE,  VALUE=’DO  YOU  ’+  $ 

’WANT  TO  QUIT  ALLSKY  ?') 
M_SUBASE=WIDGET_BASE(M_BASE,  /ROW) 
M_B1=WIDGET_BUTTON(M_SUBASE,  VALUE=’YES’,  $ 
UVALUE=’YES’) 

M_B2=WIDGET_BUTTON(M_SUBASE,  VALUE=’NO’,  $ 
UVALUE=’NO’) 

M_B3=W  I DG  ET_BUTTON(M_SU  BASE,  VALU  E=’CANCEL’,  $ 
UVALUE=’CANCEL’) 

WIDGET_CONTROL,  M_BASE,  /REALIZE 
widget_control,  m_b1 ,  /inputjocus 
EVENT=WIDGET_EVENT(M_BASE) 

W I  DG  ET_CONTROL,  EVENT.  I  D,G  ET_U  VALU  E=ANS 
widget_control,  m_base,  /destroy 
IF  ANS  EQ  ’YES’  THEN  $ 

WIDGET_CONTROL,  /DESTROY,  EV.TOP 
ENDCASE 

"XWINDOW" :  BEGIN 

IF  (STATE.FLAGS(O)  AND  STATE.FLAGS(I))  THEN  BEGIN 
WIDGET_CONTROL,  /HOURGLASS 
WIDGET_CONTROL,  STATEWDGT(28),  SENSITIVE=0 
WIDGET_CONTROL,  STATE.WDGT(25),  SENSITIVES 
WIDGET_CONTROL,  STATEWDGT(1 9),  G ET_U VALU E=S  ATLIST 
W_PLOT_l  MAGE, STATE, SATLIST 
STATE. FLAGS(4)=1 
STATE.FLAGS(6)=1 

WIDGET_CONTROL,  EV.TOP,  S ET_U VALU E=ST ATE 
WIDGET_CONTROL,  STATE.WDGT(28),  SENSITIVE=1 
WIDGET_CONTROL,  STATE.WDGT(25),  SENSITIVES 
ENDIF  ELSE  BEGIN 

IF  (NOT  STATE. FLAGS(O)  AND  NOT  STATE.FLAGS(I))  $ 

THEN  BEGIN 

RESULT=DIALOG_MESSAGE([’BEFOR  YOU  CAN  MAKE  AN  '+  $ 
’XWINDOW  IMAGE  YOU  MUST  SELECT:  $ 

’(1)  AN  IMAGE  FILE  AND’,  $ 

’(2)  A  PROJECTION  ALTITUDE.’], /INFORMATION) 

ENDIF  ELSE  BEGIN 

IF  (NOT  STATE. FLAGS(O))  THEN  BEGIN 
RESULT=DIALOG_MESSAGE([’BEFOR  YOU  CAN  MAKE  AN  ’+  $ 
’XWINDOW  IMAGE  YOU  MUST  SELECT:  ’,  ”,  $ 

’(1)  AN  IMAGE  FILE.’], /INFORMATION) 

ENDIF 

IF  (NOT  STATE. FLAGS(I))  THEN  BEGIN 
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RESULT=DIALOG_MESSAGE([’BEFOR  YOU  CAN  MAKE  AN  ’+  $ 
’XWINDOW  IMAGE  YOU  MUST  SELECT:’,  ’  $ 

’(1)  A  PROJECTION  ALTITUDE.’], /INFORMATION) 

ENDIF 

ENDELSE 

ENDELSE 

ENDCASE 

"PS  FILE" :  BEGIN 

IF  (STATE. FLAGS(O)  AND  STATE. FLAGS(I))  THEN  BEGIN 
WIDGET_CONTROL,  STATE.WDGT(28),  SENSITIVE=0 
WIDGET_CONTROL,  STATE.WDGT(25),  SENSITIVES 
PFLNM=STATE.PFILE 

ppth=state.pdir 

PFLNM=DIALOG_PICKFILE(/WRITE,  FILE=PFLNM,  $ 
FILTER=PPTH,  GET_PATH=PPTH) 

IF  (STRLEN(PFLNM)  GT  0)  THEN  BEGIN 
WIDGET_CONTROL,  /HOURGLASS 
PFLNM=STRMID(PFLNM,STRLEN(PPTH),  $ 
(STRLEN(PFLNM)-STRLEN(PPTH))) 

STATE.PFILE=PFLNM 
STATE. PDIR=PPTH 

WIDGET_CONTROL,  STATE.WDGT(19),  $ 

G  ET_U VALU  E=S ATL I  ST 
W_PRINTJMAGE, STATE, SATLIST 
WIDGET_CONTROL,  EV.TOP,  SET_UVALUE=STATE 
ENDIF 

WIDGET_CONTROL,  STATE.WDGT(28),  SENSITIVE=1 
WIDGET_CONTROL,  STATE.WDGT(25),  SENSITIVE=1 
ENDIF  ELSE  BEGIN 

IF  (NOT  STATE.FLAGS(O)  AND  NOT  STATE.FLAGS(I))  $ 

THEN  BEGIN 

RESULT=DIALOG_MESSAGE([’BEFOR  YOU  CAN  MAKE  A  ’+  $ 
’POST  SCRIPT  FILE  YOU  MUST  SELECT:  $ 

’(1)  AN  IMAGE  FILE  AND’,  $ 

’(2)  A  PROJECTION  ALTITUDE.1], /INFORMATION) 

ENDIF  ELSE  BEGIN 

IF  (NOT  STATE.FLAGS(O))  THEN  BEGIN 
RESULT=DIALOG_MESSAGE([’BEFOR  YOU  CAN  MAKE  A  ’+  $ 
’POST  SCRIPT  FILE  YOU  MUST  SELECT:  $ 

’(1)  AN  IMAGE  FILE.’], /IN FORMATION) 

ENDIF 

IF  (NOT  STATE.FLAGS(I))  THEN  BEGIN 
RESULT=DIALOG_MESSAGE([’BEFOR  YOU  CAN  MAKE  A  ’+  $ 
’POST  SCRIPT  FILE  YOU  MUST  SELECT:’,  ’  ’,  $ 

’(1)  A  PROJECTION  ALTITUDE.’], /INFORMATION) 

ENDIF 

ENDELSE 

ENDELSE 

ENDCASE 


"SAMPLE" :  BEGIN 
SAMPLEJMAGE 
ENDCASE 
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"MERIDIAN" :  BEGIN 

IF  (STATE.OPTION(O)  EQ  0)  THEN  BEGIN 
WIDGET_CONTROL,  STATE.WDGT(34),  $ 
SET_VALUE=’+  MERIDIAN’ 

STATE.OPTION(0)=1 

WIDGET_CONTROL,  EV.TOP,  SET_UVALUE=STATE 
ENDIF  ELSE  BEGIN 

WIDGET_CONTROL,  ST ATE.W  DGT (34) ,  $ 
SET_VALUE=’  MERIDIAN’ 

STATE.OPTION(0)=0 

WIDGET_CONTROL,  EV.TOP,  SET_UVALUE=STATE 
ENDELSE 
ENDCASE 

"ALESUND" :  BEGIN 

IF  (STATE.OPTION(I)  EQ  0)  THEN  BEGIN 
WIDGET_CONTROL,  STATE.WDGT(35),  $ 
SET_VALUE=’+  NY  ALESUND’ 

STATE.OPTION(1  )=1 

WIDGET_CONTROL,  EV.TOP,  S ET_U VALU E=ST AT E 
ENDIF  ELSE  BEGIN 

WIDGET_CONTROL,  STATE.WDGT(35),  $ 
SET_VALUE=’  NY  ALESUND’ 

STATE.OPTION(1)=0 

WIDGET_CONTROL,  EV.TOP,  SET_UVALUE=STATE 
ENDELSE 
ENDCASE 

"LONGYEAR" :  BEGIN 
IF  (STATE.OPTION(2)  EQ  0)  THEN  BEGIN 
WIDGET_CONTROL,  STATE.WDGT(36),  $ 
SET_VALUE=’+  LONGYEARBYEN’ 
STATE.OPTION(2)=1 

WIDGET.CONTROL,  EV.TOP,  SET_UVALUE=STATE 
ENDIF  ELSE  BEGIN 

WIDGET_CONTROL,  ST  ATE.W  DGT  (36),  $ 
SET_VALUE=’  LONGYEARBYEN’ 
STATE.OPTION(2)=0 

WIDGET_CONTROL,  EV.TOP,  SET_UVALUE=STATE 
ENDELSE 
ENDCASE 

"QUICKVIEW" :  BEGIN 
IF  (STATE. FLAGS(5)  EQ  0)  THEN  BEGIN 
WIDGET_CONTROL,  STAT E. W DGT(  1 8) ,  $ 
SET_VALUE=’QUICK  VIEW  ON’ 

STATE.FLAGS(5)=1 

WIDGET_CONTROL,  EV.TOP,  SET_UVALUE=STATE 
ENDIF  ELSE  BEGIN 

WIDGET_CONTROL,  STATE.WDGT (1 8),  $ 
SET_VALUE=’QUICK  VIEW  OFF’ 
STATE.FLAGS(5)=0 

WIDGET_CONTROL,  EV.TOP,  SET_UVALUE=STATE 
ENDELSE 
ENDCASE 
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"BITSWAP" :  BEGIN 

IF  (STATE.FLAGS(3)  EQ  1)  THEN  BEGIN 

WIDGET_CONTROL,  STATE.WDGT(12),SET_VALUE=’  BIT  SWAP’ 
STATE.FI_AGS(3)=0 
ENDIF  ELSE  BEGIN 

WIDGET_CONTROL,  STATE.WDGT(12),SET_VALUE=’+  BIT  SWAP’ 
STATE.FLAGS(3)=1 
ENDELSE 

WIDGET_CONTROL,  EV.TOP,  SET_UVALUE=STATE 
ENDCASE 

"GEOGRAPHIC” :  BEGIN 
STATE.FLAGS(7)=0 

WIDGET_CONTROL,  STATE.WDGT(32),SET_VALUE=’+  GEOGRAPHIC’ 
WIDGET_CONTROL,  STATE.WDGT(33),SET_VALUE=’  MAGNETIC’ 
WIDGET_CONTROL,  EV.TOP,  SET_U VALU  E=ST ATE 
ENDCASE 

"MAGNETIC" :  BEGIN 
STATE.FLAGS(7)=1 

WIDGET_CONTROL,  STATE.WDGT(32),SET_VALUE=’  GEOGRAPHIC’ 
WIDGET_CONTROL,  STATE.WDGT(33),SET_VALUE=’+  MAGNETIC’ 
WIDGET_CONTROL,  EV.TOP,  S ET_U V ALU E=ST ATE 
ENDCASE 

"OPEN" :  BEGIN 
PTH=STATE.DIR 

FLNM=DIALOG_PICKFILE(/MUST_EXIST,  /READ,  $ 

GET_PATH=PTH,  FILTER=PTH) 

IF  (STRLEN(FLNM)  GT  0)  THEN  BEGIN 
WIDGET_CONTROL,  /HOURGLASS 
STATE.FLAGS(6)=0 
STATE. DIR=PTH 

FLNM=STRMID(FLNM,STRLEN(PTH),  $ 
(STRLEN(FLNM)-STRLEN(PTH))) 

STATE.FILE=FLNM 

STATE.PFILE=FLNM+’.ps’ 

IMGLIST=FINDFILE(PTH) 

FLTOP=WHERE(IMGLIST  EQ  FLNM) 

WIDGET_CONTROL,  STATE. WDGT(6),  $ 

SET_VALUE=IMGLIST 
WIDGET_CONTROL,  STATE.WDGT(6),  $ 

SET_UVALUE=IMGLIST 
WIDGET_CONTROL,  STATE.WDGT(6),  $ 

SET_LIST_TOP=FLTOP(0),  $ 

SET_LIST_SELECT=FLTOP(0) 

WIDGET_CONTROL,  STATE.WDGT(4),  $ 

SET_VALUE=PTH 
W_LOAD_IMAGE, STATE 
IF  (STATE. FLAGS(2)  EQ  1)  THEN  BEGIN 
STATE.  FLAGS(0)=1 

WIDGET_CONTROL,  STATE.WDGT(8),  $ 
SET_VALUE=STATE.INFO(0) 

WIDGET_CONTROL,  STATE.WDGT(9),  $ 
SET_VALUE=STATE.INFO(1 ) 

WIDGET_CONTROL,  STATE.WDGT(IO),  $ 


95 


SET_VALU  E=ST  ATE.  I N  F0(2) 
WIDGET_CONTROL,  STATE.WDGT(16),  $ 
SET_VALUE=FLNM 

WIDGET.CONTROL,  ST  ATE .  W  DGT  (23) ,  $ 
SET_VALUE=STRING(FORMAT=’(F4.1 )’,  $ 
STATE.INFO(3)) 

WIDGET_CONTROL,  STATE.WDGT(24),  $ 
SET_VALUE=STRING(F0RMAT=’(I1)’,  $ 

STATE. INFO(4)) 

ENDIF  ELSE  BEGIN 
STATE.FLAGS(0)=0 

WIDGET_CONTROL,  STATE.WDGT(8),  $ 
SET_VALUE=’???????' 

WIDGET_CONTROL,  STATE.WDGT(9),  $ 
SET_VALUE=’??:??:??’ 

WIDGET_CONTROL,  STATE.WDGT(IO),  $ 
SET_VALUE=’????’ 

WIDGET_CONTROL,  STATE.WDGT(16),  $ 
SET_VALUE=’?????’ 

WIDGET_CONTROL,  STATE.WDGT(23),  $ 
SET_VALUE=’??.?’ 

WIDGET_CONTROL,  STATE.WDGT(24),  $ 
SET_VALUE=’?’ 

ENDELSE 

WIDGET_CONTROL,  EV.TOP,  SET_UVALUE=STATE 
ENDIF 
ENDCASE 

’SELECTALT’ :  BEGIN 
WIDGET_CONTROL,  /HOURGLASS 
WIDGET_CONTROL,  STATE .W DGT(28) ,  SENSITIVE=0 
WIDGET_CONTROL,  STATE.WDGT(25),  SENSITIVE=0 
WIDGET_CONTROL,  STATE.WDGT(7),  $ 

S  ET_VALU  E=STR  I N  G  (ALT,  FOR  MAT =’(F5. 1 )’) 
WIDGET_CONTROL,  STATE.WDGT(15),  $ 
SET_VALUE=STRING(ALT,FORMAT=’(F5.1)’) 

STATE.  PLOC(3)=ALT 
W_PROJECT_IMAGE,STATE 
STATE. FLAGS(1)=1 
STATE. FLAGS(6)=0 

WIDGET_CONTROL,  EV.TOP,  SET_U VALU E=ST ATE 
WIDGET_CONTROL,  STATE.WDGT(28),  SENSITIVES 
WIDGET_CONTROL,  STATE.WDGT(25),  SENSITIVES 
ENDCASE 

’SELECTSCL’ :  BEGIN 
WIDGET_CONTROL,  /HOURGLASS 
WIDGET_CONTROL,  STATE.WDGT(28),  SENSITIVES) 
WIDGET_CONTROL,  STATE.WDGT(25),  SENSITIVES) 
WIDGET_CONTROL,  STATE.WDGT(17),  $ 
SET_VALUE=STRING(SCL,FORMAT=’(F6.1)’) 

STATE.  PLOC(8)=SCL 
STATE. FLAGS(6)=0 

WIDGET_CONTROL,  EV.TOP,  S ET_U VALU E=ST ATE 
WIDGET_CONTROL,  STATE.WDGT(28),  SENSITIVE=1 
WIDGET_CONTROL,  STATE.WDGT(25),  SENSITIVE=1 


96 


ENDCASE 


"COLORTABLE" :  BEGIN 
WIDGET_CONTROL,  /HOURGLASS 

WIDGET_CONTROL,  STATE.WDGT(31),  SET_VALUE=COLOR 
SET_COLOR, COLOR, TP 
STATE.  PW I N  (3)=TP 

WIDGET_CONTROL,  EV.TOP,  SET_UVALUE=STATE 
ENDCASE 

"ADD" :  BEGIN 

WIDGET_CONTROL,  STATE.WDGT(19),  $ 

G  ET_U VALU  E=S AT  L I  ST 
PTH=SATLIST  (0) 

FLNM=DIALOG_PICKFILE(/MUST_EXIST,  /READ,  $ 
GET_PATH=PTH,  FILTER=PTH+’V*’) 

IF  (STRLEN(FLNM)  GT  0)  THEN  BEGIN 
SATLIST(0)=PTH 

SATLIST(N_ELEMENTS(WHERE(SATLIST(0:1 8)  $ 

NE  ”)))=STRMID(FLNM,STRLEN(PTH),  $ 
(STRLEN(FLNM)-STRLEN(PTH))) 

SATLIST(19)=” 

WIDGET_CONTROL,  STATE.WDGT(19),  $ 
SET_VALUE=SATLIST  (1 :18) 

WIDGET_CONTROL,  STATE.WDGT(19),  $ 
SET_UVALUE=SATLIST 
ENDIF 
ENDCASE 

“REMOVE" :  BEGIN 

WIDGET_CONTROL,  STATE.WDGT(19),  $ 
GET_UVALUE=SATLIST 
IF  ((SATLIST(19)  NE  ”)  AND  $ 

(SATLIST (SATLIST (1 9))  NE  ”))  THEN  BEGIN 
ISATLIST =N_ELEMENTS(WH ERE(SATLIST (0: 1 8)  $ 

NE  ”))-1 

SATLIST  (SATLIST  (1 9))=” 

SATLIST  (SATLIST  (1 9):1 7)=  $ 

SATLIST  ((SATLIST  (1 9)+1  ):1 8) 

SATLIST(19)=” 

WIDGET_CONTROL,  STATE.WDGT(19),  $ 
SET_VALUE=SATLIST  (1 :1 8) 

WIDGET_CONTROL,  STATE.WDGT(19),  $ 
SET_UVALUE=SATLIST 
ENDIF 
ENDCASE 

ELSE:  PRINT,  "UNKNOWN  BUTTON!  ",  UV 
ENDCASE 

ENDCASE 

"SATJJST" :  BEGIN 

WIDGET_CONTROL,  STATE.WDGT(19),  GET_UVALUE=SATLIST 
SATLIST(19)=EV.INDEX+1 

WIDGET_CONTROL,  STATE.WDGT(19),  SET_UVALUE=SATLIST 
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ENDCASE 


"DIRECTORY" :  BEGIN 

WIDGET_CONTROL,  EV.ID,  GET_VALUE=DIRS 
DIR=STRING(DIRS(0)) 

IMGLIST=FINDFILE(DIR) 

WIDGET_CONTROL,  STATE.WDGT(6),  SET_VALUE=IMGLIST 
WIDGET_CONTROL,  STATE.WDGT(6),  SET_UVALUE=IMGLIST 
STATE. DIR=DIR 

WIDGET_CONTROL,  EV.TOP,  S ET_U VALU  E=ST  AT  E 
ENDCASE 

"IMAGE_LIST" :  BEGIN 
WIDGET_CONTROL,  /HOURGLASS 
STATE.FLAGS(6)=0 

WIDGET_CONTROL,  EV.ID,  GET_UVALUE=IMGLIST 
FLNM=IMGLIST(EV.  INDEX) 

STATE.  FILE=FLNM 
STATE.PFILE=FLNM+’.ps’ 

W_LOAD_l  MAG  E, ST ATE 
IF  (STATE. FLAGS(2)  EQ  1)  THEN  BEGIN 
STATE. FLAGS(0)=1 

WIDGET_CONTROL,  STATE.WDGT(8),  $ 
SET_VALUE=STATE.INFO(0) 

WIDGET_CONTROL,  STATE.WDGT(9),  $ 
SET_VALUE=STATE.INFO(1 ) 

WIDGET_CONTROL,  STATE.WDGT(IO),  $ 
SET_VALUE=STATE.INFO(2) 

WIDGET_CONTROL,  STATE.WDGT(16),  $ 

SET_VALUE=FLNM 

WIDGET_CONTROL,  STATE.WDGT(23),  $ 
SET_VALUE=STRING(FORMAT=’(F4.1)’,STATE.INFO(3)) 
WIDGET_CONTROL,  STATE.WDGT(24),  $ 
SET_VALUE=STRING(F0RMAT=’(I1)’,STATE.INF0(4)) 

ENDIF  ELSE  BEGIN 
STATE. FLAGS(0)=0 

WIDGET_CONTROL,  STATE.WDGT(8),  $ 
SET_VALUE=’???????’ 

WIDGET_CONTROL,  STATE.WDGT(9),  $ 
SET_VALUE=’??:??:??’ 

WIDGET_CONTROL,  STATE.WDGT(IO),  $ 

SET_VALUE=’????’ 

WIDGET_CONTROL,  STATE.WDGT(16),  $ 
SET_VALUE=’?????’ 

WIDGET_CONTROL,  STATE.WDGT(23),  $ 

SET_VALUE=’??.?’ 

WIDGET_CONTROL,  STATE.WDGT(24),  $ 

SET_VALUE=’?’ 

ENDELSE 

WIDGET_CONTROL,  EV.TOP,  S ET_U VALU E=ST AT E 
ENDCASE 

"ALTITUDE" :  BEGIN 
WIDGET_CONTROL,  /HOURGLASS 
WIDGET_CONTROL,  STATE.WDGT(28),  SENSITIVE=0 
WIDGET_CONTROL,  STATE.WDGT(25),  SENSITIVE=0 
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WIDGET_CONTROL,  EV.ID,  GET_VALUE=ALTS 
ALT=’0’+ALTS(0) 

IF  ((ALT  GE  50.0)  AND  (ALT  LE  600.0))  THEN  BEGIN 
STATE.PLOC(3)=ALT 
WIDGET_CONTROL,  STATE.WDGT(15),  $ 
SET_VALUE=STRING(ALT,FORMAT=’(F5.1)’) 

WIDGET_CONTROL,  STATE.WDGT(7),  $ 
SET_VALUE=STRING(ALT,FORMAT=’(F5.1)’) 

W_PROJECTJMAGE,  STATE 
STATE.FLAGS(1  )=1 
ENDIF  ELSE  BEGIN 

RESULT=DIALOG_MESSAGE([’YOU  MUST  SELECT  AN  ALTITUDE’,  $ 
’BETWEEN  50.0  AND  600.0  KM’], /INFORMATION) 
WIDGET_CONTROL,  STATE.WDGT(15),  $ 

SET_VALUE=’???.?’ 

WIDGET_CONTROL,  STATE.WDGT(7),  $ 

SET_VALUE=’???.?’ 

STATE. FLAGS(1  )=0 
ENDELSE 

STATE.FLAGS(6)=0 

WIDGET_CONTROL,  EV.TOP,  SET_UVALUE=STATE 
WIDGET_CONTROL,  STATE.WDGT(28),  SENSITIVE=1 
WIDGET_CONTROL,  STATE.WDGT(25),  SENSITIVES 
ENDCASE 

’’SCALE'' :  BEGIN 

WIDGET_CONTROL,  /HOURGLASS 
WIDGET_CONTROL,  STATE.WDGT(28),  SENSITIVE=0 
WIDGET_CONTROL,  STATE.WDGT(25),  SENSITIVES) 
WIDGET_CONTROL,  EV.ID,  GET_VALUE=SCLS 
SCL=’0’+SCLS(0) 

IF  ((SCL  GE  10.0)  AND  (SCL  LE  6000.0))  THEN  BEGIN 
STATE.  PLOC(8)=SCL 
WIDGET_CONTROL,  STATE.WDGT(17),  $ 
SET_VALUE=STRING(SCL,FORMAT=’(F6.1)’) 

ENDIF  ELSE  BEGIN 

RESULT=DIALOG_MESSAGE([’YOU  MUST  SELECT  A  VALUE’,  $ 
’BETWEEN  10.0  AND  6000.0  R’], /INFORMATION) 
WIDGET_CONTROL,  STATE.WDGT(17),  $ 

S  ET_VALU  E=’??? .  ?’ 

ENDELSE 

STATE.FLAGS(6)=0 

WIDGET_CONTROL,  EV.TOP,  SET_UVALUE=STATE 
WIDGET_CONTROL,  STATE.WDGT(28),  SENSITIVE=1 
WIDGET_CONTROL,  STATE.WDGT(25),  SENSITIVES 
ENDCASE 

ELSE: 

ENDCASE 

END 


nmmmimnmiM 

;;  PRO  W_LOADJMAGE  ;;; 


timnmmimimii 
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PRO  W_LOAD_IMAGE, STATE 

FILENAME=ST ATE. DIR+ST ATE. FILE 
INDEX=STATE.PWIN(2) 

TP=STATE.PWIN(3) 

FLAG  S=ST  ATE .  FLAG  S 

FLAG2=FLAGS(2) 

FLAG3=FLAGS(3) 

FLAG5=FLAGS(5) 

LOADJMAGE, FILENAME, INDEX, TP,  $ 
IAI,FDATE,FTIME,FFILTER,  $ 

FEXPOSURE.FGAIN,  $ 

FLAG2,FLAG3,FLAG5 

IF  (FLAG2  EQ  1)  THEN  BEGIN 

FLAGS(2)=1 

IF  (FLAGS(5)  EQ  1)  THEN  FLAGS(4)=0 

INFO=STRARR(5) 

INFO(0)=FDATE 

INFO(1)=FTIME 

INFO(2)=FFILTER 

INFO(3)=FEXPOSURE 

INFO(4)=FGAIN 

STATE={WDGT:STATE.WDGT,  FLAGS:FLAGS,  $ 
PWIN:STATE.PWIN,  PLOC:STATE.PLOC,  $ 
OPTION:STATE.OPTION,  DIR:STATE.DIR,  $ 
FILE:STATE.FILE,  PDIR:STATE.PDIR,  $ 
PFILE:STATE.PFILE,  LAT:STATE.LAT,  $ 
LON:STATE.LON,  TRIANGLES:STATE.TRIANGLES,  $ 
IALIAI,  INFO:INFO,  MAPIMAGE:STATE.MAPIMAGE,  $ 
MAP:STATE.MAP} 

ENDIF  ELSE  BEGIN 

STATE. FLAGS(2)=0 

ENDELSE 

END 


;;;  PRO  W_PROJECT_IMAGE  ;;; 


PRO  W_PROJECTJ MAGE, STATE 

ALT=STATE.PLOC(3) 

SITEELEV=STATE.PLOC(0) 
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SITELAT=STATE.PL0C(1 ) 

SITEL0N=STATE.PL0C(2) 

PROJECT_IMAGE,SITELAT,SITELON,SITEELEV,ALT,  $ 
LAT, LON, TRIANGLES 

STATE={WDGT:STATE.WDGT,  FLAGS:ST ATE.  FLAGS, $ 
PWIN:STATE.PWIN,  PLOC:STATE.PLOC,  $ 
OPTION:ST ATE. OPTION,  DIR:STATE.DIR,  $ 
FILE:STATE.FILE,  PDIR:STATE.PDIR,  $ 
PFILE:STATE.PFILE,  LAT:LAT,  LON:LON,  $ 
TRIANGLES:TRIANGLES,  lALSTATE.IAI,  $ 

INFO:ST ATE. INFO,  MAPIMAGE:STATE.MAPIMAGE,  $ 
MAP:STATE.MAP} 

END 


;;;  PRO  W.PLOTJMAGE ;;; 


PRO  W_PLOTJMAGE,STATE,SATLIST 

WXSZ=STATE.PWIN(0) 

WYSZ=STATE.PWIN(1) 

INDEX=STATE.PWIN(2) 

TP=STATE.PWIN(3) 

WX=STATE.PWIN(4) 

WY=STATE.PWIN(5) 

OPTION=STATE.OPTION 

FILENAME=ST ATE. FILE 

SITELAT=STATE.PLOC(1 ) 
SITELON=STATE.PLOC(2) 

SITELATMIN=STATE.PLOC(4) 

SITELATMAX=STATE.PLOC(5) 

SITELONMIN=STATE.PLOC(6) 

SITELONMAX=STATE.PLOC(7) 

SCL=STATE.PLOC(8) 

LAT =ST  ATE .  L  AT 
LON=STATE.LON 
TRIANGLES=STATE.TRI  ANGLES 
IAI=STATE.IAI 

FDATE=STATE.INFO(0) 
FTIME=STATE.INFO(1 ) 
FFILTER=STATE.INFO(2) 
FEXPOSURE=STATE.INFO(3) 
FGAIN=STATE.INFO(4) 

ALT=STATE.PLOC(3) 
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MAPIMAGE=STATE.MAPIMAGE 
FLAG  1  =ST  ATE.  FLAG  S(6) 

FLAG2=STATE.FLAGS(7) 

PLOTJMAGE, WXSZ,WYSZ,INDEX, TP, OPTION,  $ 
FILENAME, SITELAT,  $ 

SITELON,SITELATMIN,SITELATMAX,SITELONMIN,  $ 
SITELONMAX, LAT, LON, TRIANGLES, IAI,$ 
FDATE,FTIME,FFILTER,FEXPOSURE,FGAIN,ALT,  $ 
MAPIMAGE,WX,WY,FLAG1,FLAG2,MAP,SATLIST,SCL 

PWIN=STATE.PWIN 

PWIN(4)=WX 

PWIN(5)=WY 

STATE={WDGT:STATE.WDGT,  FLAGS:ST ATE. FLAGS,  $ 
PWIN:PWIN,  PLOC:STATE.PLOC,  $ 
OPTION:STATE.OPTION,  DIR:STATE.DIR,  $ 
FILErSTATE.FILE,  PDIR:STATE.PDIR,  $ 
PFILE:STATE.PFILE,  LAT:STATE.LAT,  $ 
LON:STATE.LON,  TRIANGLES:STATE.TRIANGLES,  $ 
lALSTATE.IAI,  INFO:STATE.INFO,  $ 
MAPIMAGE:MAPIMAGE,  MAPiMAP} 

END 


;;  PRO  W_PRINTJMAGE  ;;; 


PRO  W_PRINT_IMAGE,STATE,SATLIST 

WXSZ=ST  ATE.  PW I N  (0) 

WYSZ=STATE.PWIN(1) 

INDEX=STATE.PWIN(2) 

TP=STATE.PWIN(3) 

OPTION=STATE.OPTION 

FILENAME=ST ATE. FILE 

PFILENAME=STATE.PDIR+STATE.PFILE 

SITELAT=STATE.PLOC(1 ) 
SITELON=STATE.PLOC(2) 

SITELATMIN=STATE.PLOC(4) 

SITELATMAX=STATE.PLOC(5) 

SITELONMIN=STATE.PLOC(6) 

SITELONMAX=STATE.PLOC(7) 

SCL=STATE.PLOC(8) 

LAT=STATE.LAT 

LON=STATE.LON 

TRIANGLES=STATE.TRIANGLES 

IAI=STATE.IAI 
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FDATE=STATE.INFO(0) 

FTIME=STATE.INF0(1 ) 

FFILTER=STATE.INF0(2) 

FEXP0SURE=STATE.INF0(3) 

FGAIN=STATE.INF0(4) 

ALT =ST  ATE.  PL0C(3) 

FLAGS=STATE.FLAGS 

FLAG1=FLAGS(2) 

FLAG2=FLAGS(7) 

PRINT_IMAGE,WXSZ,WYSZ, INDEX, TP, OPTION,  $ 
FILENAME, PFILENAME,  SITELAT,  $ 
SITELON,SITELATMIN,SITELATMAX,SITELONMIN,  $ 
SITELONMAX.LAT, LON, TRIANGLES, IAI,$ 
FDATE,FTIME,FFILTER,FEXPOSURE,FGAIN,  $ 
ALT.FLAG1  ,FLAG2,SATLIST,SCL 

STATE.FLAGS(2)=FLAG1 

END 


;;  PRO  PLOT_IMAGE  ;;; 


PRO  PLOTJMAGE,WXSZ,WYSZ, INDEX, TP, OPTION,  $ 
FILENAME, SITELAT, SITELON.SITELATMIN,  $ 
SITELATMAX.SITELONMIN, SITELONMAX.LAT,  $ 

LON, TRIANGLES, IAI,FDATE,FTIME,FFILTER,$ 
FEXPOSURE,FGAIN,ALT,WARPIMAGECG,WX,WY,  $ 
FLAG1  ,FLAG2,MAP,SATLIST,SCL 

PSTACK=[!P] 

XSTACK=[!X] 

YSTACK=[!Y] 

WSET,  INDEX 

IF  FLAG1  EQ  0  THEN  BEGIN 

CALHAARP,IAI,FEXPOSURE,FFILTER,FGAIN,ALT,GIAI 

CALASIP,IAI,FEXPOSURE,FFILTER,FGAIN,ALT,CIAI 

CIAI=IAI/16  ;pn 
KER=FLTARR(3,3)+1 .0 

CIAI=CONVOL(FLOAT(CIAI),KER,TOTAL(KER)) 

BLANK=WHERE((LAT  EQ  -999.0)OR(LON  EQ  -999.0)) 
CIAI(BLANK)=-1 

ENDIF 
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ALT_VALUE=STRING(ALT,F0RMAT=’(F5.1)’) 
TITLE=’DATE  ’+FDATE+’  TIME  ’+FTIME+’  FILTER  ’  $ 
+FFILTER+’  ALTITUDE  ’+ALT_VALUE+’  FILE  ’  $ 
+FILENAME 

IFFLAG1  EQ  0  THEN  BEGIN 


GS=[0.05,0.05] 

GOOD=WHERE((LAT  NE  -999.0)AND(LON  NE  -999.0)) 

XRANGE=[MIN(LON(GOOD)),MAX(LON(GOOD))] 

YRANGE=[MIN(LAT(GOOD)),MAX(LAT(GOOD))] 

LIMITS=[XRANGE(0),YRANGE(0),XRANGE(1),YRANGE(1 )] 

MAPIMAGE=TRIGRID(LON(GOOD),LAT(GOOD),CIAI(GOOD),  $ 
TRIANGLES,  GS,  LIMITS,  MISSING=-1.0) 

ENDIF 

IP. BACKGROUNDS 

!P.COLOR=0 

ERASE 

;  ERASE, COLOR=-1  pn  needed? 

RMAX=SCL 

RMIN=0.0 


PRINT,  ’RMAX-SCL:  ’,SCL 
IFFLAG1  EQ  0  THEN  BEGIN 

MAPIMAGES=1+BYTSCL(MAPIMAGE,TOP=(TP-3),MIN=RMIN,MAX=RMAX) 
MAPIMAGES(WHERE(MAPIMAGE  EQ  -1.0))=TP-1 

ENDIF 

IPOS=[0.0, 0.231 25, 1 .0,0.881 25] 

MAP_SET,SITELAT,SITELON,LIMIT=[SITELATMIN,SITELONMIN,$ 
SITELATMAX,SITELON,SITELATMIN,SITELONMAX,  $ 
SITELATMIN.SITELON],  $ 

/ISOTROPIC, POS=IPOS, /NOBORDER 


MAP={X:!X,Y:!Y) 


IFFLAG1  EQ  0  THEN  BEGIN 

WARPIMAGE=MAP_IMAGE(MAPIMAGES,WX,WY,WXSIZE,  $ 
WYSIZE,LATMIN=YRANGE(0),LATMAX=YRANGE(1),  $ 
LONMIN=XRANGE(0),LONMAX=XRANGE(1 ),  $ 
MISSING=255B,COMPRESS=1 ) 
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WARPIMAGECG=CONGRID(WARPIMAGE,WXSIZE,WYSIZE) 

ENDIF 

TV,WARPIMAGECG,WX/FLOAT(WXSZ),  $ 

W  Y/FLOAT  (W  YSZ),/NOR 

MAP_SET,SITELAT,SITELON,LIMIT=[SITELATMIN,SITELONMIN,  $ 
SITELATMAX,SITELON,SITELATMIN,SITELONMAX,  $ 
SITELATMIN.SITELON],  $ 

/CONTINENT, /ISOTROPIC, /NOBORDER,  $ 

/NOERASE, POS=IPOS, /HIRES 

;  ADD  ANNOTATION 

IF  OPTION(I)  THEN  ANNOTATE, SITELON.SITELAT,’  N’,2 
IF  OPTION(2)  THEN  ANNOTATED  5.83,78.2,’  L’,2 
XYOUTS, 0.5, 0.97, TITLE,  ALIGN=0.5, /NOR 

;  OVERLAY  LINE  TRACES 

IF  (N_ELEMENTS(WHERE(SATLIST(0:18)  NE  ”))  GT  1)  $ 

THEN  BEGIN 

FOR  l=1,(N_ELEMENTS(WHERE(SATLIST(0:18)  NE  ”))-1)  $ 

DO  BEGIN 

SATFILE=SATLIST(0)+SATLIST(l) 

IF  STRUPCASE(STRMID(SATLIST(I),0,1))  EQ  ’V’  $ 

THEN  BEGIN 

VSATELLITE,FDATE,FTIME,SATFILE 

ENDIF 

IF  STRUPCASE(STRMID(SATLIST(I),0,1))  EQ  ’F  $ 

THEN  BEGIN 

FSATELLITE,FDATE,FTIME,SATFILE 

ENDIF 

ENDFOR 

ENDIF 

;  PLOT  NORTH-SOUTH  MERIDIAN  LINE 

IF  OPTION(O)  THEN  MERIDIAN, ALT 

;  PLOT  COORDINATE  GRID 

IF  (FLAG2  EQ  0)  THEN  BEGIN 

;  PLOT  GEOGRAPHIC  COORDINATE  GRID 
GEOCOORD 

ENDIF  ELSE  BEGIN 

;  PLOT  MAGNETIC  COORDINATE  GRID 
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MAGCOORD 


ENDELSE 

;  MAKE  COLOR  BAR 

CL=FINDGEN(1000) 

CLBR=[[CL],[CL]] 

CLBRS=1  +BYTSCL(CLBR,TOP=(TP-3)) 

TV,CONGRID(CLBRS,0.6*FLOAT(WXSZ),0.03*FLOAT(WYSZ)),  $ 
0.2, 0.07, XSIZE=0.6,YSIZE=0.03, /NOR 


PLOT, [RMIN,RMAX],[0,1],POS=[0.2, 0.07, 0.8, 0.1],  $ 

/NOR, YSTY=5,XSTY=5, /NODATA, /NOERASE 
AXIS,XAXIS=0,XSTY=1  ,TICKLEN=-.2 

AXIS,XAXIS=1  ,XTITLE=’RAYLEIGH’,XTICKS=1  ,XTICKLEN=0,$ 
XTICKN=[’  ’] 

;  WRITE  GIF  IMAGE  FILE 

TVLCT,QWR,QWG,QWB,/GET 

;  WRITEJMAGE,FILENAME+’.gif’, ’JPEG', TVRD(),QWR,QWG,QWB 

WRITE_JPEG,FILENAME+’.jpg’,TVRD() 

;  RESTORE  PARAMETERS 

!P=PSTACK(0) 

!X=XSTACK(0) 

!Y=YSTACK(0) 

END 


;;  ANNOTATE ;;; 

immitnmi 

PRO  ANNOT ATE, SITELON.SITELAT, TITLE, SHAPE 

XYOUTS, SITELON.SITELAT, TITLE,  CHARSIZE=1.7 
PLOTS,  SITELON.SITELAT, PSYM=SHAPE,THICK=4.0 

END 


;;  PRO  FSATELLITE  ;;; 


PRO  FSATELLITE, FDATE.FTIME.SATFILE 
l=-1 

DAT A=FLTARR(3, 5000) 
SDATE=STRARR(5000) 
SSECOND=DBLARR(5000) 
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RAD=!PI/1 80.0 


D0=0 

D1=’D’ 

D2=0 

D3=0 

D4=0 

D5=0 

D6=0.0 

D7=0.0 

D8=0.0 


OPENR.1  ,SATFILE 
WHILE  NOT  EOF(1)  DO  BEGIN 
1=1+1 

READF,1,FORMAT=’(I2,A3,I4I1X,I2,1X,I2,1X,F6.3,3(1X,F10.6))’,  $ 

D0.D1  ,D2,D3,D4,D5,D6,D7,D8 
DATA(0,I)=D6 
DATA(1 ,1)=D7 
DATA(2,I)=D8 

SSECOND(I)=(D3*3600.0D)+(D4*60.0D)+D5 

ENDWHILE 

CLOSE, 1 

DATA=DATA(*,0:l) 

SSECOND=SSECOND(0:I) 

FSECOND=(DOUBLE(STRMID(FTIME,0,2))*3600.0D)+  $ 
(DOUBLE(STRMID(FTIME,3,2))*60.0D)+  $ 

DOUBLE(STRMID(FTIME,6,2)) 

USERSYM,1.0*COS(FINDGEN(16)*(!PI*2/1 5.)),  $ 
1.0*SIN(FINDGEN(16)*(!PI*2/15.)),THICK=2.5 

IPOS=t0.0,0.23125,1 .0,0.88125] 

IF  ((FSECOND  GE  MIN(SSECOND))  AND  $ 

(FSECOND  LE  MAX(SSECOND)))  THEN  BEGIN 

CDATA=GONVERT_COORD(DATA(2,*),DATA(1,*),/DATA,/TO_NORMAL) 

HPOS=INTERPOL(CDATA(0,*),SSECOND, FSECOND) 
VPOS=INTERPOL(CDATA(1,*),SSECOND, FSECOND) 

DDATA=CONVERT_COORD(HPOS,VPOS, /NORMAL, /TO_DEVICE) 

IF  ((DDATA(O)  GT  IP.CLIP(O))  AND  (DDATA(O)  LT  !P.CLIP(2))  $ 

AND  (DDATA(I)  GT  !P.CLIP(1))  AND  $ 

(DDATA(I)  LT  !P.CLIP(3)))  THEN  BEGIN 

PLOTS, HPOS,VPOS,PSYM=8, /NOR, NOCLIP=0 
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PLOTS,  CDATA(0,*),CDATA(1,*), /NOR,  NOCLIP=0 
ENDIF 
ENDIF 
END 


;;;  PRO  VSATELLITE  ;;; 


PRO  VSATELLITE, FDATE,FTIME,SATFILE 
l=-1 

DAT A=FLTARR(5, 5000) 
SDATE=STRARR(5000) 
SSECOND=DBLARR(5000) 

RAD=!PI/180.0 


D0=0 

D1=’D’ 

D2=0 

D3=0 

D4=0 

D5=0 

D6=0.0 

D7=0.0 

D8=0.0 

D9=0.0 

D1 0=0.0 


OPENR,1,SATFILE 
WHILE  NOT  EOF(1)  DO  BEGIN 
1=1+1 


READF.1  ,F0RMAT=’(I2,A3,I4,1  X,I2,1  X,I2,1  X,F6.3,5(1  X,F1 0.6))’,  $ 
D0,D1  ,D2,D3,D4,D5,D6,D7,D8,D9,D10 
DATA(0,I)=D6 
DATA(1,I)=D7 
DATA(2,I)=D8 
DATA(3,I)=D9 
DATA(4,I)=D10 

SSECOND(I)=(D3*3600.0D)+(D4*60.0D)+D5 

ENDWHILE 

CLOSE, 1 

DAT  A=DAT  A(*,0: 1) 

SSECOND=SSECOND(0:I) 
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FSECOND=(DOUBLE(STRMID(FTIME,0,2))*3600.0D)+  $ 
(DOUBLE(STRMID(FTIME,3,2))*60.0D)+  $ 

DOUBLE(STRMID(FTIME,6,2)) 

USERSYM,1 .0*COS(FINDGEN(16)*(!PI*2/15.)),  $ 
1.0*SIN(FINDGEN(16)*(!PI*2/15.)),THICK=2.5 

IPOS=[0.0, 0.23125, 1.0, 0.88125] 

IF  ((FSECOND  GE  MIN(SSECOND))  AND  $ 

(FSECOND  LE  MAX(SSECOND)))  THEN  BEGIN 

CDATA=CONVERT_COORD(DATA(2,*),DATA(1  ,*),/DATA,/TO_NORMAL) 

HPOS=INTERPOL(CDATA(0,*),SSECOND, FSECOND) 
VPOS=INTERPOL(CDATA(1  ,*),SSECOND, FSECOND) 

DDATA=CONVERT_COORD(HPOS,VPOS, /NORMAL,  /TO_DEVICE) 

IF  ((DDATA(O)  GT  IP.CLIP(O))  AND  (DDATA(O)  LT  !P.CLIP(2))  $ 

AND  (DDATA(I)  GT  IP.CLIP(I))  AND  $ 

(DDATA(I)  LT  !P.CLIP(3)))  THEN  BEGIN 

PLOTS, HPOS,VPOS,PSYM=8, /NOR, NOCLIP=0 
PLOTS,  CDATA(0,*),CDATA(1,*), /NOR,  NOCLIP=0 

DLAT=INTERPOL(DATA(3,*),SSECOND, FSECOND) 
DLON=INTERPOL(DATA(4,*),SSECOND, FSECOND) 

IF  (DLAT (0)+DLON(0))  NE  0.0  THEN  BEGIN 

DLAT =DLAT*0.0035 
DLON=DLON*0.0035 

EDATA=CONVERT_COORD(HPOS,VPOS, /NORMAL, /TO_DAT A) 
FDATA=CONVERT_COORD(EDATA(0),EDATA(1 ),  $ 

/DATA,/TO_NORMAL) 

GDATA=CONVERT_COORD(EDATA(0),EDATA(1)+1 .0,  $ 
/DATA,/TO_NORMAL) 

ANG=-ATAN(GDATA(0)-FDATA(0),GDATA(1)-FDATA(1)) 

ELAT=DLAT*COS(ANG)+DLON*SIN(ANG) 

ELON=-DLAT*SIN(ANG)+DLON*COS(ANG) 

ARROW, HPOS,VPOS,HPOS+ELON,VPOS+ELAT, /NOR, THICK=2.5, /SOLID 
ENDIF 
ENDIF 
ENDIF 
END 


;;;  PRO  MERIDIAN  ;;; 
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PRO  MERIDIAN, ALT 


RAD=!PI/1 80.0 
LAT_MAG=75.4295 
LON_MAG=130.713 
;  LAT_MAG=81 .3 
;  LON_MAG=1 10.8 

DIPANG=70.0-((ASIN((6360.0/(6360.0+ALT))*  $ 

SIN(1 1 0.0*RAD)))/RAD) 

ILAT=FLTARR(21) 

ILON=FLTARR(21 ) 

FOR  1=0,20  DO  BEGIN 

ILAT_MAG=LAT_MAG+((I/10.0)*DIPANG)-DIPANG 

GEOMAG,  LAT_G  EO,  LO  N_G  EO ,  I  LAT_M  AG ,  LO  N_M  AG ,  - 1 

ILAT(l)=LAT_GEO 

ILON(l)=LON_GEO 

ENDFOR 

OPLOT,ILON,ILAT 

DZ_MAG_LAT=7.9-((ASIN((6360.0/(6360.0+ALT))*  $ 

SIN(1 72.1  *RAD)))/RAD) 

Z_MAG_LAT =LAT_MAG-DZ_MAG_LAT 
Z_MAG_LON=LON_MAG 

GEOMAG, Z_LAT_GEO,Z_LON_GEO,Z_MAGJ_AT,Z_MAG_LON,-1 

USERSYM,1.0*COS(FINDGEN(16)*(!PI*2/16.)),  $ 

1 ,0*SIN(FINDGEN(1 6)*(!PI*2/1 6.)) 

;PLOTS,Z_LON_GEO,Z_LAT_GEO,PSYM=8 

END 


mnimmimin 

;;  PRO  MAGCOORD  ;;; 


nmmiimiiim 


PRO  MAGCOORD 

LONDEL=10.0 

LATDEL=2.0 

LONLAB=1 30.0+(0.5*LONDEL) 
LATLAB=74.0+(0.5*LATDEL) 


FOR  MLON=0,360.0-LONDEL,LONDEL  DO  BEGIN 


GEOMAG, GLAT.GLON, 0.0, MLON, -1 
PLOTS, GLON.GLAT 

FOR  MLAT=-90, 90.0,1 .0  DO  BEGIN 

GEOMAG, GLAT,GLON,MLAT,MLON,-1 

PLOTS,  GLON.GLAT, /CONT,LINESTYLE=1 

ENDFOR 

ENDFOR 

FOR  MLAT=-90,90.0,LATDEL  DO  BEGIN 

GEOMAG, GLAT.GLON.MLAT, 0.0, -1 

PLOTS, GLON.GLAT 

FOR  MLON=0, 360.0, 5.0  DO  BEGIN 

GEOMAG, GLAT,GLON,MLAT,MLON,-1 
PLOTS,  GLON.GLAT, /CONT,LINESTYLE=1 

ENDFOR 

ENDFOR 

FOR  MLON=0,360.0-LONDEL,LONDEL  DO  BEGIN 
IF  MLON  GT  180.0  THEN  BEGIN 
CMLON=MLON-360.0 
ENDIF  ELSE  BEGIN 
CMLON=MLON 
ENDELSE 
GLAT=LATLAB 

GEOMAG, GLAT.GLON.LATLAB, MLON, -1 

CDATA=CONVERT_COORD(GLON+1 .0,GLAT,/DATA,/TO_DEVICE) 

IF  ((CDATA(O)  GT  IP.CLIP(O))  AND  (CDATA(O)  LT  !P.CLIP(2))  $ 

AND  (CDATA(I)  GT  !P.CLIP(1))  AND  $ 

(CDATA(I)  LT  !P.CLIP(3)))  THEN  $ 
XYOUTS,CDATA(0),CDATA(1),STRTRIM(STRING(FORMAT=’(I3)’,  $ 
CMLON), 2), /DEVICE, ALIGN=0.0 
ENDFOR 

FOR  MLAT=-90,90.0,LATDEL  DO  BEGIN 
GEOMAG, GLAT,GLON,MLAT,LONLAB,-1 

CDATA=CONVERT_COORD(GLON+0.5,GLAT-0.2,/DATA,/TO_DEVICE) 
IF  ((CDATA(O)  GT  IP.CLIP(O))  AND  (CDATA(O)  LT  !P.CLIP(2))  $ 

AN  D  (CD ATA(  1 )  GT  !  P.CLI  P(1 ))  AN  D  $ 

(CDATA(I)  LT  ! P.CLI P(3)))  THEN  $ 
XYOUTS,CDATA(0),CDATA(1),STRTRIM(STRING(FORMAT=’(I3)’,  $ 
MLAT),  2), /DEVICE,  ALIGN=0.0 
ENDFOR 


END 
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;;;  PRO  GEOCOORD ;;; 

Ml)  I II II  f  I  M  M  M  11 1 

PRO  GEOCOORD 

LONDEL=10.0 

LATDEL=2.0 

LONLAB=20.0+(0.5*LONDEL) 

LATLAB=76.0+(0.5*LATDEL) 

FOR  GLON=0, 360.0, LONDEL  DO  BEGIN 

GLAT=0.0 

PLOTS, GLON.GLAT 
FOR  GLAT=0, 90.0, 1.0  DO  BEGIN 
PLOTS,  GLON.GLAT, /CONT,LINESTYLE=1 
ENDFOR 
ENDFOR 

FOR  GLAT=0,90.0,LATDEL  DO  BEGIN 
GLON=0.0 


PLOTS, GLON.GLAT 
FOR  GLON=0, 360.0, 5.0  DO  BEGIN 
PLOTS,  GLON.GLAT, /CONT,LINESTYLE=1 
ENDFOR 
ENDFOR 

FOR  GLON=0, 360.0, LONDEL  DO  BEGIN 
IF  GLON  GT  180.0  THEN  BEGIN 
CGLON=GLON-360.0 
ENDIF  ELSE  BEGIN 
CGLON=GLON 
ENDELSE 
GLAT=LATLAB 

CDATA=CONVERT_COORD(GLON,GLAT,/DATA,/TO_DEVICE) 

CDATA(0)=CDATA(0)+5.0 

IF  ((CDATA(O)  GT  IP.CLIP(O))  AND  (CDATA(O)  LT  !P.CLIP(2))  $ 

AND  (CDATA(I)  GT  !P.CLIP(1))  AND  $ 

(CDATA(I)  LT  !P.CLIP(3)))  THEN  $ 

XYOUTS,CDATA(0),CDATA(1  ),STRTRIM(STRING(FORMAT=’(l3)’,  $ 
CGLON), 2), /DEVICE, ALIGN=0.0 
ENDFOR 

FOR  GLAT=0,90.0,LATDEL  DO  BEGIN 
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GLON=LONLAB 

CDATA=CONVERT_COORD(GLON,GLAT,/DATA,/TO_DEVICE) 
CDAT  A(1  )=CDAT  A(1  )+8.0 

IF  ((CDATA(O)  GT  !P.CLIP(0))  AND  (CDATA(O)  LT  !P.CLIP(2))  $ 

AND  (CDATA(I)  GT  IP.CLIP(I))  AND  $ 

(CDATA(I)  LT  !P.CLIP(3)))  THEN  $ 
XYOUTS,CDATA(0),CDATA(1),STRTRIM(STRING(FORMAT=’(I3)’,  $ 
GLAT), 2), /DEVICE,  ALIGN=0.0 
ENDFOR 


END 


;;;  PRO  PRINTJMAGE  ;;; 


PRO  PRINTJMAGE, WXSZ.WYSZ, INDEX, TP.OPTION,  $ 
FILENAME, PFILENAME,SITELAT,  $ 
SITELON,SITELATMIN,SITELATMAX,SITELONMIN,  $ 
SITELONMAX, LAT, LON, TRIANGLES, IAI,$ 
FDATE,FTIME,FFILTER,FEXPOSURE,FGAIN,  $ 

ALT, FLAG  1  ,FLAG2,SATLIST,SCL 

PSTACK=[!P] 

XSTACK=[!X] 

YSTACK=[!Y] 

ONJOERROR,  ERR 
FLAG  1=0 

SET_PLOT,'PS’ 

!P.FONT=0 

!P.CHARSIZE=1.0 

!P.THICK=2.0 

!X.THICK=2.0 

!Y.THICK=2.0 

DEVICE,  FILENAME=PFILENAME 
DEVICE, BITS_PER_PIXEL=8 

DEVICE, COLOR=0  ;  set  to  1  for  reverse  video 

DEVICE, /PORTRAIT 

DEVICE, XSIZE=8.0,YSIZE=8.0,XOFFSET=0.25,  $ 
YOFFSET=1. 5, /INCHES 

CALHAARP,IAI,FEXPOSURE,FFILTER,FGAIN,ALT,CIAI 

CIAMAI/16 

KER=FLTARR(3,3)+1 .0 

CIAI=CONVOL(FLOAT(CIAI),KER,TOTAL(KER)) 

BLANK=WHERE((LAT  EQ  -999.0)OR(LON  EQ  -999.0)) 
CIAI(BLANK)=-1 

ALT_VALUE=STRING(ALT,FORMAT=’(F5.1)’) 
TITLE=’DATE  ’+FDATE+’  TIME  ’+FTIME  $ 

+’  FILTER  ’+FFILTER+’  ALTITUDE  ’  $ 
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+ALT_VALUE+’  FILE  ’+FILENAME 


GS=[0.05,0.05] 


GOOD=WHERE((LAT  NE  -999.0)AND(LON  NE  -999.0)) 

XRANGE=[MIN(LON(GOOD)),MAX(LON(GOOD))] 

YRANGE=[MIN(LAT(GOOD)),MAX(LAT(GOOD))] 

LIMITS=[XRANGE(0),YRANGE(0),XRANGE(1  ),YRANGE(1 )] 

MAPIMAGE=TRIGRID(LON(GOOD),LAT(GOOD),CIAI(GOOD)I  $ 
TRIANGLES,  GS, LIMITS, MISSING=-1.0) 

!P.BACKGROUND=TP-1 

!P.COLOR=0 

ERASE 

RMAX=SCL 

RMIN=0.0 

MAPIMAGES=1+BYTSCL(MAPIMAGE,TOP=(TP-3),MIN=RMIN,MAX=RMAX) 
MAPIMAGES(WHERE(MAPIMAGE  EQ  -1.0))=TP-1 

IPOS=[0.0, 0.231 25, 1 .0,0.881 25] 

MAP_SET,SITELAT,SITELON,LIMIT=[SITELATMIN,SITELONMIN,  $ 
SITELATMAX,SITELON,SITELATMIN,SITELONMAX,  $ 
SITELATMIN.SITELON],  $ 

/ISOTROPIC, POS=IPOS 

WARPIMAGE=MAP_IMAGE(MAPIMAGES,WX,WY,WXSIZE,  $ 
WYSIZE,LATMIN=YRANGE(0),LATMAX=YRANGE(1),  $ 
LONMIN=XRANGE(0),LONMAX=XRANGE(1),  $ 
MISSING=255B,COMPRESS=1) 

TV,WARPIMAGE,WX,WY,XSIZE=WXSIZE,YSIZE=WYSIZE 

MAP_SET,SITELAT,SITELON,LIMIT=[SITELATMIN,SITELONMIN,  $ 
SITELATMAX,SITELON,SITELATMIN,SITELONMAX,  $ 
SITELATMIN.SITELON],  $ 

/CONTINENT, /ISOTROPIC,  $ 

/NOERASE, POS=IPOS, /HIRES 

;  ADD  ANNOTATION 

IF  OPTION(I)  THEN  ANNOTATE.SITELON.SITELAT,’  N’,2 
IF  OPTION(2)  THEN  ANNOTATED  5.83,78.2,’  L’,2 
XYOUTS, 0.5, 0.95, TITLE, ALIGN=0.5, /NOR, CHARSIZE=0.8 

;  OVER  LAY  LINE  TRACES 

IF  (N_ELEMENTS(WHERE(SATLIST (0:1 8)  NE  ”))  GT  1)  $ 

THEN  BEGIN 

FOR  1=1  ,(N_ELEMENTS(WHERE(SATLIST(0:18)  NE  ”))-1)  DO  BEGIN 
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SATFILE=SATLIST  (0)+SATLIST(l) 

IF  STRUPCASE(STRMID(SATLIST(I),0,1))  EQ  ’V’  $ 

THEN  BEGIN 

VSATELLITE,FDATE,FTIME,SATFILE 

ENDIF 

IF  STRUPCASE(STRMID(SATLIST(I),0,1))  EQ  ’F’  $ 

THEN  BEGIN 

FSATELLITE,FDATE,FTIME,SATFILE 

ENDIF 

ENDFOR 

ENDIF 

;  PLOT  NORTH-SOUTH  MERIDIAN  LINE 

IF  OPTION(O)  THEN  MERIDIAN, ALT 

;  PLOT  COORDINATE  GRID 

IF  (FLAG2  EQ  0)  THEN  BEGIN 

;  PLOT  GEOGRAPHIC  COORDINATE  GRID 
GEOCOORD 

ENDIF  ELSE  BEGIN 

;  PLOT  MAGNETIC  COORDINATE  GRID 
MAGCOORD 

ENDELSE 

;  MAKE  COLOR  BAR 

CL=FINDGEN(1 000) 

CLBR=[[CL],[CL]] 

CLBRS=1  +BYTSCL(CLBR,TOP=(TP-3)) 

TV,CLBRS,0.2,0.05,XSIZE=0.6,YSIZE=0.03,/NOR 

PLOT, [RMIN, RMAX],[0, 1  ],POS=[0.2, 0.05, 0.8, 0.08],  $ 

/NOR,  YSTY=5,XSTY=5, /NODATA, /NOERASE 
AXIS,XAXIS=0,XSTY=1  ,TICKLEN=-.2 

AXIS,XAXIS=1  ,XTITLE=’RAYLEIGH’,XTICKS=1  ,XTICKLEN=0,$ 
XTICKN=[’  ’],CHARSIZE=0.8 

FLAG  1=1 

ERR:DEVICE,/CLOSE_FILE 

SET_PLOT,’X’ 

!P=PSTACK(0) 

!X=XSTACK(0) 

!Y=YSTACK(0) 
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END 


;;;  PRO  PROJECTJMAGE ;;; 


1 1  >  >  j  iiniin  im  >»i  t  in  i 

;;;  THIS  FILE:  CONVERTJMAGE.PRO 
•■•AUTHOR:  PETER  NING 
;;;  REV: 

PRO  PROJECT JMAGE.SITELAT.SITELON.SITEELEV.ALT,  $ 

LAT, LON, TRIANGLES 

;ROUTINE  TO  FIND  GEOGRAPHIC  COORDINATES  FOR  ALL-SKY  IMAGES 
;FROM  AZ,  EL,  AND  ASSUMED  ALTITUDE.  DOES  NOT  DISPLAY  AN  OUTPUT 
; IMAGE-ONLY  DETERMINES  GEOGRAPHIC  COORDINATES  OF  EACH  PIXEL. 
;USE  TRIANGULATE  AND  TRIGRID  TO  DISPLAY  IMAGE  DATA. 

;BASED  ON  ALGORITHM  AND  CODE  FROM  KEOCGMMAPS  BY  DAN  WEIMER. 
;WRITTEN  UPAS  INDEPENDENT  PROCEDURE  BY  TODD  PEDERSEN  4/20/98. 
;THIS  IMPLEMENTATION  ALLOWS  NON-LINEAR  PIXEL-ELEVATION  RELATIONS 
;AS  WELL  AS  A  VARIETY  OF  IMAGE  SIZES. 

;FOR  EACH  IMAGER  ORIENTATION/SITING  AND  ASSUMED  ALTITUDE, 

;THIS  ROUTINE  NEEDS  TO  BE  RUN  ONLY  ONCE-- 

;THE  GEOGRAPHIC  COORDINATES  OF  EACH  PIXEL  WILL  BE  THE  SAME 

;FOR  EACH  IMAGE. 

; VERIFICATION  (UPDATED  4/27/98): 

;ROUTINE  ASSUMES  IMAGE  IS  IN  MAP  FORMAT 
;(EAST  ON  THE  RIGHT-DEFAULT  FOR  HAARP) 

;INPUT  PARAMETER  AZOFFSET  PRODUCES  A  ‘CLOCKWISE*  ROTATION 
;FOR  POSITIVE  INPUT  VALUES.  NOT  YET  TESTED  AGAINST  CONVERTED 
;IMAGES  FROM  OTHER  ROUTINES. 
jINPUTS: 

;  IMAGESIZE:  INTEGER  GIVING  SIZE  OF  IMAGE  (USUALLY  256) 

;  XCENTER:  X  COORDINATE  OF  IMAGE  CENTER,  IN  PIXELS 
;  YCENTER:  Y  COORDINATE  OF  IMAGE  CENTER,  IN  PIXELS 
;  IMAGERADIUS:  RADIUS  OF  THE  IMAGE,  IN  PIXELS 
;  ELCUTOFF:  ELEVATION  ANGLE  BELOW  WHICH  NO  CONVERSION 
;  IS  CARRIED  OUT  (DEGREES) 

;  AZOFFSET:  PARAMETER  ALLOWING  FOR  ROTATION  IN  AZIMUTH, 

;  IN  DEGREES.  POSITIVE  NUMBERS  GIVE  ‘CLOCKWISE*  ROTATION. 

;  SITELAT:  LATITUDE  OF  OBSERVATION  SITE,  IN  DEGREES 
;  SITELON:  LONGITUDE  OF  OBSERVATION  SITE,  IN  DEGREES 
;  SITEELEV:  ALTITUDE  OF  OBSERVATION  SITE,  IN  KILOMETERS 
;  ALT:  ASSUMED  ALTITUDE  OF  THE  OPTICAL  EMISSIONS 
;  RADIALFN:  SET  OF  POLYNOMIAL  COEFFICIENTS  TO  MODEL  DEPENDENCE 
;  OF  ELEVATION  ANGLE  ON  RADIAL  PIXEL  DISTANCE 
;  (ONLY  LINEAR  COEFFICIENTS  USED  AS  OF  PRESENT, 

;  BUT  POLYNOMIAL  MODELING  POSSIBLE) 

;  (FOR  LINEAR  MODEL,  RADIALFN  SHOULD  HAVE  THE  FORM  [0..90./R] 

;  WHERE  R  IS  THE  IMAGE  RADIUS  AT  0  DEG  ELEVATION  ANGLE) 

;OUTPUTS: 

;  LAT:  ARRAY  OF  LATITUDES  FOR  EACH  POINT  IN  THE  IMAGE 
;  (IN  DEGREES) 
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LON:  ARRAY  OF  LONGITUDES  FOR  EACH  POINT  IN  THE  IMAGE 
(IN  DEGREES) 

***  NOTE:  POINTS  IN  THE  ORIGINAL  ARRAY  FALLING  OUTSIDE  THE  ACTUAL 
AREA  OF  THE  IMAGE  OR  BELOW  THE  MINIMUM  ELEVATION  ANGLE 
SPECIFIED  BY  INPUT  PARAMETER  ELCUTOFF  ARE  FLAGGED  WITH 
LAT  AND  LON  COORDINATES  OF  -999.  USE  "WHERE"  TO  THROW 
THESE  OUT  IN  SUBSEQUENT  PROCESSING. 


iiiiiiiililiiiiiiiiiimiiiiiniimiminiiiimmnmiimim 


;  SOME  OF  THE  FIXED  INPUTS 

;  IMAGESIZE=256 

;  XCENTER=127.0 
;  YCENTER=125.0 
;  IMAGERADIUS=1 45.7 
;  ELCUTOFF=20.0 
;  AZOFFSET=0.0 
;  RADIALFN=[0.0, 90.0/1 45.7] 

IMAGESIZE_X=670 

IMAGESIZE_Y=650 

XCENTER=342.0 

YCENTER=302.0 

IMAGERADIUS=284.0 

ELCUTOFF=20.0 

AZOFFSET=0.0 

RADIALFN=[0.0,90.0/IMAGERADIUS] 


;SIMPLE  MODEL  OF  VARIATION  OF  EARTH’S  RADIUS  WITH  LATITUDE. 

EARTH  RAD  I  US=6356.77+21 .39*COS(S  ITELAT*!  DTOR) 

;SET  UP  INPUT  VARIABLES  TO  MATCH  VARIABLE  NAMES  IN  OLD  CODE 


;SITEELEV=SITEALT 
SITELAT=SITELAT 
SITELON=SITELON 
;  ALT =T  ARG  ET  ALT 

; CONVERT  TO  RADIANS  AND  CALCULATE  FACTORS 

SITELATRAD=SITELAT*!DTOR 

SITELONRAD=SITELON*!DTOR 

SLAT=SIN(SITELATRAD) 

CLAT=COS(SITELATRAD) 

SLON=SIN(SITELONRAD) 

CLON=COS(SITELONRAD) 

PX=CLAT*CLON 

PY=CLAT*SLON 

PZ=SLAT 
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jCALCULATE  UP,  EAST,  AND  NORTH  UNIT  VECTORS  IN  GEOGRAPHIC  COORDINATES 

UPX=PX 

UPY=PY 

UPZ=PZ 

RHO=SQRT  (PXA2+PYA2) 

E  ASTX=-  P  Y/R  H  O 

EASTY=PX/RHO 

EASTZ=0.0 

NORTHX=-PX*PZ/RHO 

NORTHY=-PZ*PY/RHO 

NORTHZ=RHO 

PX=EARTHRADIUS*PX 

PY=EARTHRADIUS*PY 

PZ=EARTHRADIUS*PZ 

;MORE  VARIABLE  NAME  CONVERSIONS 

CXIMAGECENTER-XCENTER 

CYIMAGECENTER=YCENTER 

CRADIUSOF90FOV=IMAGERADIUS 

;  XINIMAGE=LINDGEN(IMAGESIZE,IMAGESIZE)  MOD  IMAGESIZE 
XINIMAGE=LINDGEN(IMAGESIZE_X,IMAGESIZE_Y)  MOD  IMAGESIZE_X 
YINIMAGE=ROTATE(XINIMAGE,1) 

;AZ/EL  COMPUTATION 

XDELTA=XINIMAGE-CXIMAGECENTER 

YDELTA=YINIMAGE-CYIMAGECENTER 

RADIALPIXELDISTANCE=SQRT(XDELTAA2+YDELTAA2) 

AZ I M  UTH=FLT AR  R  ( I  MAG  ES  IZE_X,  I  MAG  ESIZE_Y) 
NOTZERO=WHERE(RADIALPIXELDISTANCE  GT  0.0) 

;REDEFINE  AZIMUTH  ANGLE  SO  THAT  ZERO  IS  DUE  EAST,  INCREASING 
;TOWARD  NORTH  (MATHEMATICAL  CONVENTION) 

AZIMUTH(NOTZERO)=ATAN(YDELTA(NOTZERO),XDELTA(NOTZERO)) 

;REDEFINE  TEMPORARY  ARRAY  VARIABLES  TO  FREE  UP  MEMORY 

XINIMAGE=0.0  &  YINIMAGE=0.0  &  XDELTA=0.0  &  YDELTA=0.0 

;CORRECT  FOR  AZIMUTH  OFFSET,  IF  ANY 

AZIMUTH=AZIMUTH-AZOFFSET*!DTOR 

ELVD=90.0-POLY(RADIALPIXELDISTANCE,RADIALFN) 

;FILTER  OUT  POINTS  OUTSIDE  OF  IMAGE  OR  BELOW  ELEVATION  CUTOFF  LIMIT. 

MASKBAD=WHERE((RADIALPIXELDISTANCE  GT  IMAGERADIUS)  OR  $ 

(ELVD  LT  ELCUTOFF)) 
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;FREE  UP  MEMORY  AFTER  VARIABLE  NO  LONGER  NEEDED 

RADIALPIXELDISTANCE=0.0 

ELV=ELVD*!DTOR 

ELVD=0.0 


;LAT/LON  COMPUTATION 

;CALCULATE  X,Y,Z  COORDINATES  OF  AURORAL  IMAGE  AT  GIVEN  ALT. 

;IN  A  LOCAL  COORDINATE  SYSTEM  WHERE  X=EAST,  Y=NORTH,  AND  Z=UP 

RSIN=EARTHRADIUS*SIN(ELV) 

RA=SQRT(RSINA2  +  2.0*EARTHRADIUS*ALT  +  ALTA2)-RSIN 

UP=RA*SIN(ELV) 

RHO=RA*COS(ELV) 

EAST=RHO*COS(AZIMUTH) 

NORTH=RHO*SIN(AZIMUTH) 

;FREE  UP  MEMORY 

RHO=0.0  &  AZIMUTH=0.0  &  ELV=0.0  &  RA=0.0 

;NOW  ADD  VECTORS  TOGETHER  TO  GET  GEOGRAPHIC  COORDINATES  OF 
;THE  IMAGE  POINT 

XG=UPX*UP+EASTX*EAST+NORTHX*NORTH+PX 

YG=UPY*UP+EASTY*EAST+NORTHY*NORTH+PY 

ZG=UPZ*UP+EASTZ*EAST+NORTHZ*NORTH+PZ 

;FREE  UP  MEMORY 

UP=0.0  &  EAST=0.0  &  NORTH=0.0 

;NOW  FIND  LATITUDE  AND  LONGITUDE  OF  THESE  VECTORS 

RG=SQRT  (XGA2+YGA2+ZGA2) 

LAT=!RADEG*ASIN(ZG/RG) 

LON=!RADEG*ATAN(YG,XG) 

;RETURN  OUTPUT  VARIABLES  TO  CALLLING  PROCEDURE, 

; FLAGGING  POINTS  OUTSIDE  THE  IMAGE  OR  BELOW  THE  MINIMUM 
;ELEVATION  ANGLE  WITH  VALUES  OF  -999. 

LAT  (MASKBAD)=-999.0 
LON(MASKBAD)=-999.0 

GOOD=WHERE((LAT  NE  -999.0)AND(LON  NE  -999.0)) 

TRIANGULATE, LON(GOOD),LAT(GOOD), TRIANGLES 

END 


itiMmmmmmt 

;;  PRO  LOADJMAGE ;;; 


mmiimimmm 
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PRO  LOADJMAGE, FILENAME, INDEX, TP,  $ 
IA!,FDATE,FTIME,FFILTER,  $ 

FEXPOSURE.FGAIN,  $ 

FLAG2,FLAG3,FLAG5 

ONJOERROR,  ERR 
FLAG2=0 

;  HDR=BYTARR(74) 

;  ITI_COMMENT=BYTARR(185) 

;  IAI=INTARR(256,256) 

IAI=UINTARR(670,650)  ;pn 

;  DUMMY4BYTES=BYTARR(4) 

OPENR.1, FILENAME  ;OPEN  IMAGE  FILE 
;  STATUS-FSTAT(I) 

;  READU,1,HDR 
;  READU.1  ,ITI_COMMENT 

;  IF  (STATUS.SIZE  EQ  131335)  THEN  READU.I  ,DUMMY4BYTES 
READU.I  ,IAI 
CLOSE, 1 

IF  (FLAG3  EQ  1)  THEN  BEGIN 
UPPER_BYTE=ISHFT(IAI,8) 

LOWER_BYTE=ISHFT(IAI,-8) 

;  IAI=(UPPER_BYTE  OR  LOWER_BYTE)  AND  ’OFFF’X 
IAI=(UPPER_BYTE  OR  LOWER_BYTE) 

ENDIF 

;  IAI=ROTATE(IAI,7)  ;FLIP  UPSIDE  DOWN 
il  6lmgParams=INT  ARR(1 6) 
il  6lmgParams=IAI(0:25) 

IAI=ROTATE(IAI,2)  ;FLIP  UPSIDE  DOWN  &  LEFT  RIGHT 


FDATE=STRUPCASE(STRCOMPRESS(STRMID(ITI_COMMENT,1 ,9),  $ 
/REMOVE_ALL)) 

FTIME=STRMID(ITI_COMMENT,1 1 ,8) 
FFILTER=STRMID(ITI_COMMENT,30,4) 
FEXPOSURE=STRMID(STRING(ITI_COMMENT),37,4)/10.0 
FGAIN=STRMID(ITI_COMMENT,22,1) 


monthname=[’Jan’,’Feb’,’Mar’,’Apr’,'May’,’Jun’,’Jur,’Aug’,’Sep’,’Oct’,,Nov’,’Dec’] 
MONTH=monthname[i16lmgParams(1)-1] 
DAY=strcompress(string(i16lmgParams(2)), /remove) 
YEAR=strcompress(string(i16lmgParams(0)),/remove_all) 
FDATE=STRCOMPRESS(DAY+MONTH+YEAR) 

PRINT, FDATE 


FTIME=STRING(i16lmgParams(3:5),FORMAT=’(l2.2,":,,,l2.2,":",l2.2)’) 
FFILTER=STRCOMPRESS(STRING(i16lmgParams(6)),/REMOVE_ALL) 
FEXPOSURE=strcompress(string(float(i1 6lmgParams(8)/1 0.),format=’(F6.1  )’),/rem) 
FGAIN=STRING(i16lmgParams(7)) 


IF  (FLAG5  EQ  1)  THEN  BEGIN 
WSET, INDEX 

BIAI=1+BYTSCL(IAI,TOP=(TP-3),MIN=200.0,MAX=4100.0) 
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BIAI=1+BYTSCL(IAI,TOP=(TP-3),MIN=51 2.0,  MAX-65535.) 

BIAI(WHERE(BIAI  EQ  1))=TP-1 
;  TV,CONGRID(BIAI, 500,500) 

TV.BIAI 

ENDIF 

FLAG2=1 

ERR:IF  FLAG2  EQ  0  THEN  BEGIN 
CLOSE.1 

RESULT=DIALOG_MESSAGE([’AN  ERROR  OCCURED  WHILE  TRYING  ’+  $ 
TO  READ  THE  IMAGE  DATA  FILE.’,  ’  ’,  $ 

’BE  SURE  YOU  HAVE  SELECTED  A  VALID  FILE  ’+  $ 

’AND  TRY  AGAIN’], /ERROR) 

ENDIF 

END 


;;;  PRO  GEOMAG  ;;; 


PRO  GEOMAG, LAT_GEO,LON_GEO,LAT_MAG,LON_MAG,J 

RAD=!PI/180.0 

GAMMA=70.905*RAD 
BETA=-1 1 .01 8*RAD 
ALPHA=0.0 

R1 1  =COS(GAMMA)*COS(BETA)*COS(ALPHA)-SIN(GAMMA)*SIN(ALPHA) 
R12=COS(GAMMA)*COS(BETA)*SIN(ALPHA)+SIN(GAMMA)*COS(ALPHA) 
R1 3=-COS(G  AMM  A)*S  I N  (BET  A) 

R21=-SIN(GAMMA)*COS(BETA)*COS(ALPHA)-COS(GAMMA)*SIN(ALPHA) 

R22=SIN(GAMMA)*COS(BETA)*SIN(ALPHA)+COS(GAMMA)*COS(ALPHA) 

R23=SIN(GAMMA)*SIN(BETA) 

R31  =SIN(BETA)*COS(ALPHA) 

R32=SIN(BETA)*SIN(ALPHA) 

R33=COS(BET  A) 

IF  J  LT0THEN  BEGIN 
THETA_MAG=(90.0-LAT_MAG)*RAD 
PHI_MAG=LON_MAG*RAD 
XM=SIN(THETA_MAG)*COS(PHI_MAG) 
YM=SIN(THETA_MAG)*SIN(PHI_MAG) 

ZM=COS(THETA_MAG) 

XG=(R1 1  *XM)+(R12*YM)+(R1 3*ZM) 

YG=(R21  *XM)+(R22*YM)+(R23*ZM) 

ZG=(R31  *XM)+(R32*YM)+(R33*ZM) 
THETA_GEO=ATAN(SQRT((XGA2.0)+(YGA2.0)),ZG) 

PH  l_G  EO=AT  AN  (YG  ,XG) 

LAT_GEO=90.0-(THETA_GEO/RAD) 

LON_G  EO=PHI_G  EO/R  AD 
ENDIF  ELSE  BEGIN 
TH  ET  A_G  E0=(90.0-LAT_G  EO)*R  AD 
PH  l_G  EO=LON_G  EO*R  AD 
XG=SIN(THETA_GEO)*COS(PHI_GEO) 
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YG=SIN(THETA_GEO)*SIN(PHI_GEO) 

ZG=COS(TH  ET  A_G  EO) 

XM=(R1 1  *XG)+(R21  *YG)+(R31  *ZG) 

YM=(R1 2*XG)+(R22*YG)+(R32*ZG) 

ZM=(R1 3*XG)+(R23*YG)+(R33*ZG) 
THETA_MAG=ATAN(SQRT((XMA2.0)+(YMA2.0)),ZM) 
PHI_MAG=ATAN(YM,XM) 
LAT_MAG=90.0-(THETA_MAG/RAD) 

LON_MAG=PH  l_M  AG/RAD 

ENDELSE 

END 


nniiiTJMniyyiM 

;  PRO  SET_COLOR  ;;; 


»iimn  mnrmiii) 

PRO  SET_COLOR, COLOR, TP 
;  TP=!D.N_COLORS 

TP=!D.TABLE_SIZE  ;pn  -  changed  from  above 

PRINT, TP,!  D.N_COLORS 

HUE=FLTARR(TP) 

SAT=FLTARR(TP) 

VAL=FLTARR(TP) 

CASE  COLOR  OF 

’GRAY’ :  BEGIN 

HUE=HUE+0 

SAT=SAT+0.0 

VAL(1  :TP-2)=(TP-3-FINDGEN(TP-2))*(1 .0/(FLOAT(TP-3))) 
ENDCASE 

’RED’ :  BEGIN 

HUE=HUE+0 

SAT(1  :TP-2)=FINDGEN(TP-2)*(1 ,0/(FLOAT(TP-3))) 

VAL=VAL+1 .0 

ENDCASE 

’GREEN’ :  BEGIN 

HUE=HUE+120 

SAT(1  :TP-2)=FINDGEN(TP-2)*(1 ,0/(FLOAT(TP-3))) 
VAL=VAL+1 .0 

VAL(1  :TP-2)=1-FINDGEN(TP-2)*(0.5/(FLOAT(TP-3))) 
ENDCASE 

’BLUE’ :  BEGIN 

HUE=HUE+240 
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SAT(1  :TP-2)=FINDGEN(TP-2)*(1 .0/(FLOAT(TP-3))) 

VAL=VAL+1 .0 

ENDCASE 

’RAINBOW1’ :  BEGIN 

HUE(1  :TP-2)=240.0-(FINDGEN(TP-2)*(240.0/(FLOAT(TP-3)))) 
SAT(1  :TP-2)=SAT(1  :TP-2)+1 .0 
VAL(1  :TP-2)=VAL(1  :TP-2)+1 .0 
ENDCASE 

’RAINBOW2’ :  BEGIN 

huearr=[240,240,21 0,1 80, 120,60,40, 10,0] 
satarr=[1 .0,1 .0,1 .0,1 .0,1 .0,1 .0,1 .0,0.7, 1 .0] 
valarr=[0.5,1 .0,1 .0,1 .0,1 .0,1 .0,1 .0,1 .0,1 .0] 

cindex=fix(findgen(tp-2)*9.0/(tp-2)) 
hue(1  :tp-2)=huearr(cindex) 

SAT(1  :TP-2)=satarr(cindex) 

VAL(1  :TP-2)=valarr(cindex) 

ENDCASE 

ELSE: 

ENDCASE 

TVLCT,HUE,SAT,VAL,/HSV 

HUE(0)=0 

SAT(0)=0.0 

VAL(0)=0.0 

HUE(TP-1)=0 

SAT(TP-1)=0.0 

VAL(TP-1)=1.0 


TVLCT,HUE,SAT,VAL,/HSV 

END 

PRO  CALASIP, IMAGE, EXPOSURE, FILTER, GAIN, ALT, CIMAGE 

EXPOSURE=FLOAT(EXPOSURE) 

GAIN=FIX(GAIN) 

BIAS=71 .79 

DCR=[1 1 .1 6,1 25.92,1 1 47.72,0.] 

CASE  FIX(FILTER)  OF 
6300:  LCR=[0.65351 6,7.88324,74.9065,0.0] 

5577:  LCR=[0.709080, 8.3621 3,81 .2303,0.0] 

4278:  LCR=[0.398004, 4.82669, 42.9298, 0.0] 

7774:  LCR=[0.461 1 77,5.55789,50.5229,0.0] 

6560:  LCR=[0.705478, 8.60690, 79.8694, 0.0] 

ELSE:BEGIN 

PRINT, ’CALIBRATION  DATA  FOR  THAT  FILTER  NOT  AVAILABLE.’ 
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PRINT, ’WARNING:  NO  CALIBRATION  PERFORMED." 

STOP 

END 

ENDCASE 

XO-342  &  YO=302  &  R-284 
X=(INDGEN(670)-XO)#REPLICATE(1 ,650) 
Y=REPLICATE(1,670)#(INDGEN(650)-Y0) 

RHO-SQRT  (XA2.0+YA2.0) 

X=0.0  &  Y=0.0 
BAD-WHERE(RHO  GT  R) 

;POLYNOMIAL  COEFFICIENTS  FOR  ZENITH  ANGLE 

COEFFS=[0.55071 073, 0.20038557, 0.001 0658430, -7.1 024379e-06,1.6577757e-08] 

;NEED  ZENITH  ANGLE  TO  CALCULATE  VIGNETTING  AND  VAN  RHIJN 
ZEN=POLY(RHO,COEFFS) 

RHO=0. 

;VIGNETTING  FUNCTION-DIVIDE  BY  THIS  LATER  TO  CORRECT  IMAGE 
VIGFN-1  .-0.952242/90.*ZEN 

;DO  VAN  RHIJN  CORRECTION 
EL=90.0-ZEN 
ZEN-0.0 

RE-6372.0  ;  Todd’s 

SITELAT-78.92  ;  DEGREES 
RE-6356.77+21 ,39*COS(SITELAT*!DTOR) 

;ANGLE  BETWEEN  LINE  OF  SIGHT  AND  VERTICAL,  AT  OBSERVED  VOLUME 
ALPHA=ASIN(RE*COS(!DTOR*EL)/(RE+ALT)) 

;CORRECTION  FACTOR-MULTIPLY  BY  THIS  LATER  ON 
V-COS(ALPHA) 

ZEN-0.0  &  EL-0.0 

FIMAGE-FLOAT(IMAGE) 


IMAGE_STATISTICS,FIMAGE[200:400, 200:400], MEAN-MEAN, STDDEV=SD,MINIMUM=MIN,M 
AXIMUM-MAX 

PRINT, MEAN, SD, MIN, MAX, FORMAT=’(%"MEAN=%9.2f  SD=%9.2f  MIN=%9.2f  MAX=%9.2f'')’ 
PRINT  .GAIN,  EXPOSURE,  DCR[GAIN],LCR[GAIN] 

CIMAGE-((FIMAGE-BIAS)/EXPOSURE-DCR[GAIN])/LCR[GAIN]A/IGFN*V 

CIMAGE(BAD)-0.0 

END 


mnmiiMiinmi 

;;  PRO  CALHAARP3  ;;; 

immimmmm 

PRO  CALHAARP, IMAGE, EXPOSURE, FILTER, GAIN, ALT, CIMAGE 
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PROGRAM  TO  CALIBRATE  ALL-SKY  IMAGES  FROM  THE  HAARP  IMAGER 
TO  GIVE  EMISSION  INTENSITIES  IN  RAYLEIGHS.  CURRENT  VERSION 
BASED  ON  EMPIRICAL  CALIBRATION  PERFORMED  BY  TODD  PEDERSEN 
7/21/98  USING  KEO  LIGHT  SOURCE  #1  OVER  A  RANGE  OF  INTENSITIES 
AND  EXPOSURE  TIMES  FOR  EACH  GAIN  AND  WAVELENGTH  SETTING. 

THIS  VERSION  TAKES  INTO  ACCOUNT  BACKGROUND  COUNTS,  CCD  BIAS,  ETC. 
VIGNETTING  IS  APPROXIMATED  BY  A  LINEAR  FUNCTION,  WHICH  HAS  NOT 
BEEN  EMPIRICALLY  UPDATED  SINCE  THE  ORIGINAL  INSTRUMENT 
CALIBRATION.  BECAUSE  VIGNETTING  AND  VAN  RHIJN  EFFECTS  MORE  OR 
LESS  CANCEL  OUT,  CALIBRATED  IMAGES  SUFFER  FROM  APPARENT 
UNDEREXPOSURE  NEAR  THE  CENTER.  SET  THE  KEYWORD  VANRHIJN  TO  THE 
ASSUMED  ALTITUDE  (I.E.  VANRHIJN=300.,  ETC.)  TO  CORRECT  FOR  THIS. 

THIS  VERSION  SHOULD  WORK  WITH  BOTH  256X256  AND  512X512  PIXEL 
IMAGES-ACTUAL  CALIBRATION  WAS  DONE  WITH  512X512  IMAGES; 
CALIBRATION  PARAMETERS  ARE  THEN  CORRECTED  FOR  256X256  IMAGES 
(MULTIPLY  DCR  AND  LCR  BY  4,  LEAVE  BIAS  UNCHANGED). 

BY  TODD  PEDERSEN  7/22/98 

BASED  ON  CALHAARP.PRO  BY  TODD  PEDERSEN 

(“‘CAUTION:  INTENSITY  SLOPES  ARE  DEFINED 

DIFFERENTLY  IN  THIS  VERSION,  SO  DON’T  TRY  TO  COMPARE  DIRECTLY 
WITH  OLD  VERSION***) 

PRELIMINARILY  TESTED  7/22/98: 

RUNS  OK,  GIVES  CORRECT  RESULTS  FOR  BOTH  256X256  AND  512X512  IMAGES 
INPUTS: 

IMAGE:  SQUARE  ARRAY  CONTAINING  THE  RAW  INPUT  IMAGE 
EXPOSURE:  EXPOSURE  TIME  IN  SECONDS 
GAIN:  INSTRUMENT  GAIN  SETTING  (INTEGER:  0-3) 

FILTER:  FILTER  WAVELENGTH  (INTEGER)-CURVES  ARE  DIFFERENT 
FOR  EACH  FILTER  AND  GAIN 

OUTPUTS: 

RETURNS  CALIBRATED  IMAGE  AS  FUNCTION  VALUE, 

IN  UNITS  OF  RAYLEIGH. 


;SLOPES  OF  INTENSITY  CURVES  FOR  EACH  GAIN  (DEPENDS  ON  WAVELENGTH) 
LCR=FLTARR(4) 

;SLOPES  OF  DARK  COUNT  CURVES  FOR  EACH  GAIN  (WAVELENGTH  INDEPENDENT) 
DCR=[1 .28,1.37,1.67,2.58] 

;CCD  BIAS  (INDEPENDENT  OF  EXPOSURE  TIME,  GAIN,  AND  WAVELENTH) 

BIAS=14.46 


CASE  FIX(FILTER)  OF 
6300:BEGIN 

LCR=[0.1 40,0.290,0.547,1 .900] 
END 
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5577:BEGIN 

LCR=[0.28, 0.564,1 .084,3.866] 

END 

4278:BEGIN 

LCR=[0.269, 0.539,1 .014,3.730] 

END 

ELSE:BEGIN 

PRINT, ’CALIBRATION  DATA  FOR  THAT  FILTER  NOT  AVAILABLE.’ 
PRINT/WARNING:  NO  CALIBRATION  PERFORMED." 

STOP 

END 

ENDCASE 

;IMAGE  CENTER  AND  RADIUS  IN  PIXELS 

XO=127  &  YO=125  &  R=122 

X=(INDGEN(256)-XO)#REPLICATE(1 ,256) 
Y=REPLICATE(1,256)#(INDGEN(256)-YO) 

RHO=SQRT  (XA2.0+YA2.0) 

X=0.0  &  Y=0.0 
BAD=WHERE(RHO  GT  R) 

; POLYNOMIAL  COEFFICIENTS  FOR  ZENITH  ANGLE 
COEFFS=[0.,0.4<83202, 0.00704043, -0.0001 1 0095,5.62538E-07] 

;NEED  ZENITH  ANGLE  TO  CALCULATE  VIGNETTING  AND  VAN  RHIJN 
ZEN=POLY(RHO,COEFFS) 

RHO=0. 

;VIGNETTING  FUNCTION-DIVIDE  BY  THIS  LATER  TO  CORRECT  IMAGE 
VIGFN=1.-0.82/90.‘ZEN 

;DO  VAN  RHIJN  CORRECTION  IF  REQUESTED 

;PRINT,’CORRECTING  FOR  VAN  RHIJN  EFFECT  FOR  ASSUMED  ’+  $ 

;  ’ALTITUDE  OF  ’+STRING(ALT)+’  KM.’ 

EL=90.0-ZEN 

ZEN=0.0 

RE=6372.0 

; ANGLE  BETWEEN  LINE  OF  SIGHT  AND  VERTICAL,  AT  OBSERVED  VOLUME 
ALPHA=ASIN(RE*COS(!DTOR*EL)/(RE+ALT)) 

;CORRECTION  FACTOR-MULTIPLY  BY  THIS  LATER  ON 
V=COS(ALPHA) 

;V=1 .0 


ZEN=0.0  &  EL=0.0 

;DIFFERENT  PROCESSING  FOR  1X1  AND  2X2  BINNING 
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S=SIZE(IMAGE) 


; HANDLING  FOR  2X2  BINNING 
IF  S(1)  EQ  256  THEN  BEGIN 

DCR=DCR*4. 

LCR=LCR*4. 

[HANDLING  FOR  1X1  BINNING 
ENDIFELSE  IF  S(1)  EQ  512  THEN  BEGIN 

[CHANGE  SIZE  ON  VIGNETTING,  VAN  RHIJN  AND  BAD  POINT  MASK 
VIGFN=REBIN(VIGFN,512,512) 

IF  V  NE  1.0  THEN  V=REBIN(V,512,512) 

DUMMY=REPLICATE(1. 0,256, 256)  &  DUMMY(BAD)=0. 
BAD=WHERE(REBIN(DUMMY,51 2,51 2)  LT  1.) 

ENDIF  ELSE  PRINT, ’INCORRECT  IMAGE  SIZE’ 

GAIN=FIX(GAIN) 

[APPLY  CALIBRATION 

CIMAGE=((IMAGE-BIAS)/EXPOSURE-DCR(GAIN))/LCR(GAIN)A/IGFN*V 

[MASK  POINTS  OUTSIDE  ACTUAL  IMAGE 
CIMAGE(BAD)=0.0 

END 


;;;  FUNCTION  YTICKS ;;; 

mmitimiimnmt 

FUNCTION  YTICKS,  AXIS, INDEX, VALUE 
POWER=ALOG10(VALUE) 

RETURN,  STRING(POWER,  FORMAT="(’10!U’,I2,’!N’)") 
END 


;;;  PRO  SAMPLEJMAGE  ;;; 

tmmimimmnmi 

PRO  SAMPLEJMAGE 

READ_GIF, ’test.gif’,  IMAGE, R,G,B 

TVLCT,R,G,B 

TV,  I  MAGE 

END 


;;;  PRO  ALLSKY1 .5  ;;; 
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iimiiinmimim 


ALLSKY 

END 
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6.8  SMARTMOTOR  RFL01.SMS  Program  Listing 


»*** *************************** ************ ****************5 


ARFL01  .SMS  2/8/01 

KEO  Consultants 
Cyril  Lance 

SMART-MOTOR  embedded  software  for  controlling  the  ARFL 
camera  electronics  through  the  DIO-116  Parallel  I/O  board 
from  the  SMART-MOTOR  to  the  Intensifier/Shutter  Control 
board.  Routines  in  the  program  are  also  included  to 
control  the  position  of  the  Filterwheel.  A  HOME  reset 
code  is  included  to  home  to  the  magnetic  sensor,  and  then 
move  a  specified  offset  to  the  first  FW  position. 

4"  Optics,  Six  Position  Filterwheel,  Bare  CCD  AND  Intensified 
Imager.  Uses  Princeton  Scientific  VersArray  CCD  Camera  Sysetm. 
Intensifier,  Shutter,  Light  Sensor  use  standard  KEO  Electronics 
interface.  Filterwheel  uses  a  30:1  gear  reducer. 

modified  6/21/00  to  have  version  4.10  and  version  4.1 1  bug 
fix  from  ANIMATICS 

modified  1 1/27/01  (Final)  to  make  sure  that  ALL  subroutines  are  terminated 
with  the  <cr>  (#1 3)  character. 

Program  loops,  allowing  input  from  user  and  then  calls 
to  the  various  subroutines. 

Variables  used: 

a  ==>  Holds  contents  of  last  read  input  (DINB0) 
b  ==>  Holds  contents  of  output  register  (DOUTAO) 
c  ==>  Holds  Light  Detector  Status  0=Light,  1=Dark 
d  ==>  Last  read  ’Shutter  Status  Bits’  0=closed,  1=open 
e  ==>  Holds  Intensifier  Gain 
f  ==>  Holds  Intensifier  Power  Status  0=off,  1=on 
g  — >  Holds  next  filter  position 
h  ==>  Holds  present  filter  position 
j  ==>  Holds  the  HOME  offset 

SUBROUTINES  used: 

CO  =>  Read_Light_Detector_State 
Cl  — >  Shutter_Control 
C2  ==>  lntensifier_Gain_Control 
C3  ==>  lntensifier_Power_Control 
C4  ==>  FilterwheeLControl 
C5  ==>  HOME_Reset 


SADDR1  ’  Identifies  this  as  the  motor  #1 
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RUN? 


’  Don’t  autoload  for  now... 


’  Initialize  the  output  port:  Shutters  off,  Int.  Gain  =  0 

b=7  ’  Set  Ouput  bits,  STROBE  hi 

DOUTAO.b 

b=3  ’  Set  STROBE  low 

DOUTAO.b 

b=7  ’  Set  STROBE  hi  to  clock  data 

DOUTAO.b 

’  Initialize  variables  for  SUBROUTINE  calls 

d=-1  ’  Shutter  Parameter  -  just  read  status 

e=-1  ’  Intensifier  Gain  --  just  read  status 

f=-1  ’  Intensifier  Power  --  just  read  status 

g=-1  ’  Filter  Wheel  Report  --  just  report  position 

’  Initialize  the  motor  variables  and  move  around  a  bit  to  get  the 
’  feeling  that  things  are  working! 

AMPS=300  ’  Set  the  Maximum  Current  to  about  2  Amp 

MP  ’  Set  the  Motor  to  "Position  Mode" 

’  version  4.10  and  version  4.1 1  bug  fix  from  ANIMATICS 

KGON 

KGOFF 

’  ADJUST  THE  PWM  PARAMETERS  FOR  SMOOTH,  RELIABLE  OPERATION 

KP=500 

KD=1000 

F 

’  SET  NORMAL  MOVE  ACCELERATION  AND  VELOCITY  PARAMETERS 

A=1 000 
V=1 000000 

’  HOME  Initialization  --  go  to  magnetic  detector  and  slew  to  offset 
’  ***  HOME  Offset  is  defined  in  HOME  routine!!!  Don’t  Change!  *** 

GOSUB5  ’  Find  HOME  Position,  then  slew  to  position  #1 

WHILE  1  LOOP  ’  Program  loops  forever  until  user  types  "END" 

END  ’  End  of  "MAIN"  Program  definition 


******************************** 


SUBROUTINE  Defintions 


’  SUBROUTINE  CO:  Read_Light_Detector_State(  var  c ) 
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CO 

a=DINBO 

c=a&8 

c=c/8 

PRINT("LIGHT:",c) 

PRINT(#13) 

RETURN 

’  Read  light  status:  LO=light,  Hl=dark 
’  Get  input  BYTE  (PORT  B) 

’  Mask  out  B3 
’  Shift  value  to  BO 
’  Print  value  to  screen 
’  Print  TERMINATING  character  <cr> 

’  Return  to  MAIN  routine 

’SUBROUTINE  Cl: 

Shutter_Control(  var  d  )  ’  Uses  Shutter  #1 

Cl 

IF  d==0 
b=b|1 

DOUTAO.b 

WAIT=41 

d=-1 

ENDIF 

’  Close  the  shutter 
’  Close  --  Shutter  1  bit  HI  (BO) 

’  and  output  to  DIO-116  PORTA 
’  Wait  10  msec 
’  Set  to  read  status 

IF  d==1 
b=b&254 
DOUTAO.b 
WAIT=41 
d=-1 

ENDIF 

’  Open  the  shutter 
’  Open  --  Shutter  1  bit  LO  (BO) 

’  and  output  to  DIO-116  PORTA 
’Wait  10  msec 
‘  Set  to  read  status 

IF  d==-1 

PRINT(“SHTR:???”,  #13) 

ENDIF  '  Finished  reporting  status 

RETURN 

1  End  of  Subroutine  Cl 

’  SUBROUTINE  C2: 

lntensifier_Gain_Control(  var  e ) 

C2 

IF  e>3 

PRINT("GAIN:-1" 

RETURN 

ENDIF 

'  Check  for  non-valid  gain 

,#13) 

IF  e>=0 
b=b&207 
e=e*16 
b=b|e 

DOUTAO.b 

1  Check  for  valid  gain 

1  Clear  the  output  bits  (B4-B5) 

'  Shift  gain  over  to  B4-B5 
'  OR  gain  into  output  BYTE 

'  and  output  to  DIO-116  PORTA 

b=b&251 

DOUTAO.b 

'Set  the  STROBE  bit  low  (B2) 

'  and  output  to  DIO-116  PORTA 

b=b|4 

DOUTAO.b 

e=-1 

'  Set  the  STROBE  bit  high  (B2) 

'  and  output  to  DIO-1 16  PORTA 

1  Flag  to  read  intensifier  gain 

ENDIF 

1  Intensifier  gain  has  been  set 

IF  e==-1 
a=DINB0 

1  Flagged  to  read  gain 

1  Get  input  BYTE  (PORT  B) 

131 


’  Mask  out  B0-B1 
’  Print  value  to  screen 


e=a&3 

PRINT (“GAIN:") 
PRINT(e) 
PRINT(#13) 
ENDIF 


RETURN 


’  SUBROUTINE  C3:  lntensifier_Power_Control(  var  f ) 


C3 

IF  f==1 
b=b|8 
DOUTAO,b 
f=-1 
ENDIF 


’  Command:  Turn  Power  ON 
’  Set  the  Int.  Power  bit  (B3) 

’  and  output  to  DIO-1 1 6  PORTA 
’  Set  Flag  to  read  power 


IF  f==0 
b=b&247 
DOUTAO.b 
f=-1 
ENDIF 


’Command:  Turn  Power  OFF 
’  Clear  the  Int.  Power  bit  (B3) 

’  and  output  to  DIO-116  PORTA 
’  Set  Flag  to  read  power 


IF  f==-1 
a=DINB0 
f=a&4 
IF  f 

PRINT("INTPWR:OFF") 
ENDIF 
IF  f==0 

PRINT(“INTPWR:ON”) 
ENDIF 
PRINT (#13) 

ENDIF 


’  Get  input  BYTE  (PORT  B) 
’  Mask  out  B2 
’  INTSTS*  ~>  Active  Low... 
Bit  HI:  Power  is  OFF 


‘  Bit  LO:  Power  is  ON 
'  Print  CR  character 


RETURN  ’  Return  to  MAIN  routine 

’  SUBROUTINE  C4:  Filterwheel_Control(  var  g  ) 


C4 

IF  g==-1 
h=@  P/1 0000 
PRINTC'FILT:") 
Rh 

RETURN 

ENDIF 


'  Request  for  present  position 
'  Update  present  position 
'  and  report  the  position 
1  to  the  user 


IF  g>6 

PRINT("FILT:-1") 
PRINT (#13) 
RETURN 
ENDIF 

IF  g<1 

PRINT("FILT:-1") 

PRINT(#13) 
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RETURN 

ENDIF 


IF  h— 1  ’  Present  Position  is  1 0000 

IF  g<5 

P=g*1 0000  ’  Next  position  =  g*1 0000 

ENDIF 
IF  g>=5 
i-g*  10000 
i=i-60000 

p=i  ’  Move  in  opposite  direction 

ENDIF 
ENDIF 


IF  h==2 
IF  g<6 
P=g*1 0000 
ENDIF 
IF  g==6 
P=0 
ENDIF 
ENDIF 


’  Present  Position  is  20000 
’  Next  position  is  g*10000 


’  Move  in  opposite  direction 


IF  h==3  ’  Present  Position  is  30000 

P=g*1 0000  ’  Next  position  is  g*1 0000 

ENDIF 


IF  h==4  ’  Present  Position  is  40000 

P=g*1 0000  ’  Next  position  is  g*1 0000 

ENDIF 


IF  h==5 
IF  g<3 
i=g*10000 
i=i+60000 
P=i 

ENDIF 
IF  g>2 
P=g*1 0000 
ENDIF 
ENDIF 


’  Present  Position  is  50000 
‘  Next  position  is  g*10000 


'  Next  Position  is  g*1 0000 


IF  h==6 
IF  g<3 
i=g*1 0000 
i=i+60000 
P=i 

ENDIF 
IF  g>=3 
P=g* 10000 
ENDIF 
ENDIF 

G 

TWAIT 

h=g 


'  Present  Position  is  60000 


1  Move  in  positive  direction  (wrap  around) 


'  Next  position  is  g*10000 


'  Make  the  filter  move  to  next  position 
1  Wait  until  trajectory  is  finished 

'  Reset  the  present  filter  position 
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0=h*10000 


’  and  reset  the  present  origin 


PRINTfFILT:") 

Rh 

RETURN 

’  SUBROUTINE  C5:  HOME_Reset 

C5 


V50000 

A800 

’  Slower  Homing  velocity 

’  Home  Acceleration 

i=UAI 

IF  i==0 
i=@P-1000 

P=i 

MP 

G 

TWAIT 

ENDIF 

’  Are  we  at  the  HOME  bit? 

’  move  off  it  a  little  bit. 

‘  to  guarantee  that  we’re  not  already  at  HOME 

MV 

UAI 

'  Put  motor  in  Velocity  Mode 
'  Define  the  Encoder  A  bit  as  input 

G 

i=UAI 

WHILE  i==1 
i=UAI 

LOOP 

1  Start  slewing  the  motor 
'  Look  at  the  HOME  bit 
'  Slew  while  this  is  not  set  (activejow) 

'  and  keep  reading  the  HOME  bit 

WHILE  i==0 
i=UAI 

LOOP 

A400 

V=-1 200 

G 

'  Set  the  velocity  to  slow  reverse 

'  and  move  backwards  until  beg.  of  HOME 

WHILE  i==1 
i=UAI 

LOOP 

'  go  back  to  beginning  of  pulse 

A=4000 

X 

'  setup  for  a  very  quick  stop 

G 

TWAIT 

WAIT=400 

0=5350 

'  Bring  the  motor  to  a  HALT!!!  (AT  HOME) 

1  Wait  0.1  sec  just  to  be  safe 
'  Set  this  as  offset  origin 

MP 

V=1 000000 
A=1000 

1  Put  motor  in  Position  MODE 
'  Normal  slew  velocity 

1  Normal  slew  acceleration 

P=10000 

G 

'  Setup  to  slew  to  position  #1  from  HOME 
'  Make  the  move 
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TWAIT 

WAIT=5z00 


’  Wait  until  the  trajectory  is  over 
’  Wait  1  sec  for  things  to  settle 

’  Set  to  current  position 


h=1 

PRINT("HOME:1") 

PRINT(#13) 

RETURN 

END  ’  END  of  ARFL10.SMS  code 
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Chapter  7:  Hardware  References 


7.1  Schematics:  DIO  Board  Rev  A 
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IntenMtler/Shuttcr  Hid,  Rev  B 
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INT/SHTR 


7.4  Gen-Ill  Intensifier/Shutter  Control  Board  Schematics 

7.4.1  Shutter  Control  Circuit 
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7.4.2  Intensifier/Light  Detector  Circuit 
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7.4.3  Power  Supplies 


7.4.4  Connector  Schematic 
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7.5  SMARTMOTOR  Interface 


An  embedded  program  was  developed  for  the  SMARTMOTOR  that  allows 
the  host  to  easily  control  both  the  filterwheel  and  the  Intensifier/Control  Board 
through  the  DIO-116  interface  described  above.  The  following  section  describes 
this  system  and  the  subroutines  stored  in  the  SMARTMOTOR  EEPROM.  Users 
should  refer  to  the  Animatics  documentation  for  a  deeper  understand  of  the 
SMARTMOTOR  programming  language  and  capabilities. 


7.5.1  Description  of  ARFL01. SMS 

A  simple  control  routine  was  developed  for  your  application  and  is  stored 
in  the  SMARTMOTOR  EEPROM.  This  software  does  not  auto  load  but  rather  is 
initialized  from  the  host  by  the  RUN  command.  To  stop  the  program  at  anytime, 
the  END  command  should  be  issued  from  the  HOST.  The  firmware  listing  can 
be  found  in  Chapter  6:  above. 

Upon  initializing  the  software  (RUN),  the  motion  parameters  for  the 
filterwheel  are  initialized: 

AMPS  =  300  ‘  Sets  the  maximum  current  to  2  AMP 

MP  ‘  Sets  the  motor  in  absolute  position  mode 

A=1 000  ‘  Sets  acceleration  to  1 000 

V=1 000000  ‘  Sets  Velocity  to  1 000000 

An  output  byte  of  7  is  STROBED  into  the  Control  Board,  which  sets  both 
shutters  to  closed  and  the  intensifier  gain  to  0  and  the  intensifier  power  to  OFF. 

Note  that  this  guarantees  that  the  control  board  state  is  in  a  SAFE  mode 
of  operation.  Thus,  the  RUN  command  should  be  issued  as  soon  as  possible 
after  power  up  of  the  unit.  Because  the  default  state  of  the  shutter  is  closed,  and 
the  additional  safety  of  the  light  detector  enabled,  there  is  little  chance  of  hurting 
the  image  intensifier,  but  it  is  good  to  initialize  the  program  to  guarantee  this 
state. 


(The  SMARTMOTOR  can  automatically  run  the  software  at  power  up  by 
removing  the  RUN?  command  in  the  beginning  of  ARFL01.SMS.  After  some 
experimentation  with  this  control  software,  the  user  may  want  to  implement  this 
feature.) 

AccelerationsA/elocitv/PID  tuning: 
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Accelerations  and  velocities  for  the  filterwheel  were  selected  by  trial  and 
error  and  a  medium  speed  was  chosen  to  change  the  filterwheels.  The  servo¬ 
motor  control  system  is  capable  of  much  higher  performance,  but  the  user  should 
experiment  with  the  adjustment  of  the  tuning  parameters  to  find  the  optimum 
system  parameters  for  their  applications. 

’  version  4.10  and  version  4.1 1  bug  fix  from  ANIMATICS 

KG  ON 
KGOFF 

KP=500 

KD=1000 

F 

Refer  to  the  Animatics  manual  for  definitions  of  units,  motion  control 
commands,  and  the  servo  tuning  parameters  to  learn  how  to  change  these 
values. 

KEO  has  tested  the  filterwheel  and  control  software  for  over  2000 
repetitions  with  no  failures.  The  current  parameter  state  should  suffice  for  most 
applications. 

Subroutine  Definitions: 


Once  the  program  has  initialized  the  parameters  for  the  system,  a  HOME 
command  is  issued.  When  the  unit  is  successfully  HOMED,  the  encoder  position 
is  calibrated  and  we  can  start  issuing  commands  to  the  unit.  An  infinite  loop  is 
entered  that  just  sits  and  waits  for  commands  from  the  host.  Any  valid 
SMARTMOTOR  commands  may  be  issued  by  the  host,  but  it  is  recommended 
that  only  the  commands  set  forth  in  this  manual  be  issued  while  the  program  is 
running. 

To  terminate  ARFL01.SMS  at  any  time,  the  command 

END 

must  be  issued.  The  program  functions  can  easily  be  tested  by  hooking  the 
SMARTMOTOR  to  any  RS-232  port  and  using  a  terminal  emulation  software 
package. 

ARFL01  .SMS  is  based  around  the  execution  6  subroutines  that  control  the 
various  functions  of  the  camera  system.  SMARTMOTOR  variables  are  set  to  set 
the  command  state  of  the  subroutines  and  to  hold  the  return  results.  The 
SMARTMOTOR  variables  for  ARFL01  .SMS  are  set  up  as  follows: 

a  Holds  contents  of  last  read  input  (DINBO) 
b  Holds  contents  of  output  register  (DOUTAO) 
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c  Holds  light  detector  status  bit 

d  Holds  shutter  status  bit 

e  Holds  Intensifier  Gain 

f  Holds  Intensifier  Power  status  bit 

g  Holds  next  filter  position 

h  holds  present  filter  position 

ARFL01.SMS  has  the  following  subroutine  definitions: 

CO  Read_Light_Detector_State 

Cl  Shutter_Control 

C2  lntensifier_Gain_Control 

C3  lntensfier_Power_Control 

C4  Filterwheel_Control 

C5  HOME.Reset 

Subroutines  are  terminated  by  emitting  a  LF  character  (#10)  which  is  used  by  the 
host  serial  control  to  terminate  the  port  read. 


CO:  Read  Light  Detector  State 

The  command 


GOSUBO 

reads  the  input  register  and  stores  the  result  in  variable  a.  Bit  3  of  this  register  is 
masked  out  and  stored  in  variable  c  and  shifted  to  the  LSB  position.  CO  returns 
with  the  string: 

LIGHT:c  ‘  where  c  is  0  or  1 


Cl :  Shutter  Control 

The  command 


d=x 

GOSUB1 

where: 

x  =  -1  ‘  just  reads  shutter  state 

x  =  1  ‘  opens  the  shutter 

x  =  0  ‘  closes  the  shutter 

controls  the  shutter  state.  If  d  ==  -1,  then  the  shutter  status  bit  is  read  and 
masked  from  register  a  and  stored  in  variable  d.  If  d  ==  16,  it  indicates  that  the 
shutter  is  open  and  Cl  emits 
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SHTR:??? 


If  d  ==  0,  then  Cl  emits 


SHTR:??? 

Because  your  camera  only  has  one  shutter  controlled  by  the  Control  Board, 
provision  for  only  one  shutter  was  included  in  your  software  package.  Note  that 
the  return  string  contains  a  ???  indicator  for  the  shutter  status.  This  indicates 
that  there  is  no  valid  status-detection  system  on  this  shutter. 

To  open  or  close  the  shutter,  the  host  would  send  the  following  commands: 


d=1 

‘  Set  shutter  cmd  to  OPEN 

GOSUB1 

‘  Operate  shutter  subroutine 

‘  get  exposure,  etc.... 

d=0 

‘  Set  shutter  cmd  to  CLOSE 

GOSUB1 

‘  Operate  shutter  subroutine 

Both  calls  to  Cl  will  return  the  status  of  the  shutter  just  as  if  the  d  ==  -1 
parameter  had  been  sent  to  the  subroutine.  The  user  can  choose  to  ignore  or 
use  this  return  state  based  on  their  programming  needs. 

C2  Intensifier  Gain  Control 


The  command: 


0— X 

GOSUB2 


where: 


e=-1  ‘  just  reads  current  Intensifier  Gain 

e=  0  -  3  ‘  sets  the  intensifier  gain  to  e 

controls  the  gain  of  the  image  intensifier  tube.  If  e  ==  -1 ,  then  the  input  register  is 
read  and  the  intensifier  gain  bits  (B0-B1)  are  masked  out  and  returned  to  the 
host: 


GAIN:e 

If  an  invalid  gain  was  set  in  e  (values  other  than  0  through  3),  C2  returns: 

GAIN:-1 
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To  set  the  gain,  for  example,  to  2,  the  following  commands  should  be  issued  by 
the  host: 


e=2 

GOSUB2 

If  everything  is  working  correctly,  the  subroutine  will  return  the  following  string  to 
the  host: 


GAIN:2 

C3:  Intensifier  Power  Control 

The  command 


f=x 

GOSUB3 


where: 


X  =-1 

‘  just  reads  int.  power  state 

X  =  1 

‘  turns  on  intensifier  power 

x  =  0 

‘  turns  off  the  intensifier  power 

controls  the  intensifier  power  state.  If  f  == 

-1 ,  then  the  shutter  status  bit  is  read 

and  masked  from  register  a  and  stored  in  variable  f.  If  f  ==  4,  the  intensifier 
power  is  OFF  (remember  the  status  signal  is  ACTIVE-LOW),  and  if  f  ==  0,  the 

intensifier  power  is  on: 

INTPWR:OFF 

‘f  ==4 

INTPWR:ON 

■f==0 

To  turn  on/off  the  intensifier  power,  the  host  would  send  the  following  commands: 

f=i 

‘  Set  intensifier  power  to  ON 

GOSUB3 

‘  Operate  int.  power  subroutine 

‘  do  other  stuff.. 

f=0 

‘  Set  intensifier  power  to  OFF 

GOSUB3 

‘  Operate  int.  power  subroutine 

Both  calls  to  C3  will  return  the  status  of  the  intensifier  power.  Remember  that 
even  after  turning  on  the  intensifier  power  from  the  host,  the  Control  Board  might 
still  not  enable  the  intensifier  power  if  the  Light  Detector  Bit  is  set  LOW.  This  bit 
is  checked  by  running  CO. 

C4  Filterwheel  Control 
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The  command 


g=x 

GOSUB4 


where: 

g  =  -1  ‘  reads  the  current  filterwheel  position 

g  =  1  through  6  ‘  sets  the  filterwheel  to  the  position:  g 

commands  the  filterwheel  to  move  to  the  selected  position  stored  in  g,  or  to  read 
the  current  filterwheel  position,  if  g  ==  -1 .  C4  returns  the  current  filter  position  to 
the  host: 


FILT  :g 

where  g  is  a  valid  filter  position  between  1  and  5  (for  your  filterwheel  system),  or  - 
1  if  a  non-valid  filterwheel  position  command  was  issued. 

NOTE:  the  filterwheel  position  is  calculated  from  the  current  encoder  state. 
There  are  2000  encoder  counts  per  revolution,  and  5  motor  revolutions  per 
filterwheel  position.  The  encoder  position  is  always  set  so  that  the  encoder  is 
equal  to  the  filter  position  *  10000.  The  servo  loop  should  guarantee  that  the 
motor  position  is  always  locked  onto  the  correct  encoder  position.  When  reading 
the  filter  position,  C4  reads  the  current  encoder  position  and  divides  by  10000  to 
get  the  filter  number: 


h=@  P/1 0000 

If  the  encoder  has  drifted  off,  h  might  not  return  an  accurate  filter  position.  This 
signals  the  user  that  there  might  be  a  problem  with  the  filterwheel  (and  that  the 
rates/tuning  parameters  might  need  to  be  adjusted).  The  user  should  use  the 
Animatics  utility  SMI  and  refer  to  the  manual  to  adjust  these  values  should  it 
become  necessary. 

When  a  valid  filter  position  is  stored  in  g,  C4  calculates  the  quickest  move 
for  the  motor  to  execute  to  reach  that  path  position.  C4  will  then  wait  for  the 
trajectory  to  finish,  reset  the  current  filter  position  and  report  it  to  the  host: 

FILT:h 

For  example,  a  command  to  move  to  position  number  2  would  look  like: 

g=2  ‘  Host  emits:  filter  position  #  2 

GOSUB4  ‘  Host  emits:  got  to  filterwheel  routine 

FILT:2  ‘  SMARTMOTOR  returns 
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C5:  HOME  Reset 


This  command  is  executed  upon  startup  of  the  program  ARFL01.SMS,  but 
is  also  available  to  be  used  at  anytime  during  operation  of  the  motor.  This  could 
be  useful  if  there  is  a  suspected  problem  with  the  filterwheel  position. 

The  command 

GOSUB5 

sets  the  velocity  and  acceleration  of  the  motor  to  a  slower  rate,  and  slews  until 
the  HOME  detector  is  detected.  The  motor  then  stops  and  slowly  moves  in  the 
opposite  direction  until  the  HOME  bit  is  set  again.  When  the  motor  first  stops,  it 
will  slew  past  the  HOME  bit  due  to  inertia  of  the  motor  and  the  deceleration 
process.  Thus,  when  we  reverse  the  motor,  the  HOME  bit  is  LOW  again. 

Once  the  HOME  bit  is  detected  again,  we  turn  off  the  motor  instantly  and  this 
determines  our  HOME  calibration.  C5  then  waits  0.1  seconds  for  the  motor  to 
settle  to  be  safe  and  sets  the  origin  at  this  point  to  a  predefined  offset  (current 
5350).  This  offset  has  been  calibrated  so  that  when  the  motor  is  slewed  to 
10000,  it  will  be  exactly  at  the  correct  position  for  filter  position  #1 . 

Once  the  origin  is  set,  new  motion  parameters  are  set  for  the  filterwheel: 

MP  ‘  Absolute  position  mode 

V 1 000000  ‘  Velocity  setting 

A1 000  ‘  Acceleration  setting 

Then  the  motor  is  slewed  at  these  rates  to  position  #1  (P2000).  After  the 
trajectory  is  finished,  C5  waits  for  a  second  to  make  sure  everything  has  settled. 
Finally,  C5  outputs  to  the  host: 

HOME:1 

The  offset,  and  final  motion  parameters  for  the  filterwheel  can  all  be  adjusted  in 
C5  by  using  the  utilities  provided  by  Animatics.  Motion  can  be  speeded  up  or 
slowed  down  as  deemed  necessary  by  the  user.  KEO  has  made  an  effort  to  find 
moderate  motion  parameters  that  provide  quick  but  safe  operating  conditions. 


152 


7.6  RS-232  Communication  to  SMARTMOTOR 


The  SMARTMOTOR  has  an  RS-232  interface  which  is  connected  to  a 
host  computer  via  the  DB-9  on  the  back  panel  of  our  imagers.  The  filterwheel, 
image  intensifier  and  shutter  systems  are  all  controlled  by  a  set  of  commands 
issued  by  the  host  via  the  RS-232  interface. 

Each  SMARTMOTOR  is  individually  addressed.  Upon  power-up,  the 
SMARTMOTOR  used  in  your  camera  system  is  given  the  address  of  #1.  The 
SMARTMOTOR  continually  polls  the  RS-232  receive  line  and  ignores  all 
characters  until  it  is  addressed. 

Addressing  an  individual  SMARTMOTOR  is  achieved  by  sending  out  a  high- 
order  ASCII  character: 

ASCII  Value 
128 

129 

130 

131 


In  our  case,  the  Host  must  issue  an  ASCII  character  of  value  #129  (Decimal) 
before  establishing  a  link  with  the  SMARTMOTOR  in  the  camera.  Once  this  has 
been  established,  all  commands  issued  from  the  Host  as  described  in  the 
preceding  sections  will  be  interpreted  by  the  SMARTMOTOR. 

Communication  Protocol 

The  SMARTMOTOR  communication  is  set  up  for: 

9600  Baud,  8  bits,  1  stop  bit,  No  Parity,  No  Flow  Control 


Note  that  all  communication  to  the  SMARTMOTOR  is  case  sensitive! 


Motor  Address 
0  (All) 

1 

2 

3 
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7.7  RS-232  Communication  to  ATHENA  XT16 


The  ATHENA  XT  1 6  provided  with  this  imager  for  controlling  the  filterwheel 
temperature  has  RS-232  remote  capabilities.  For  a  full  description  of  how  to  use 
this  option,  please  refer  to  the  ATHENA  XT16  manual. 

KEO  has  set  up  and  tested  the  XT16  RS-232  interface  with  the  followinq 
protocol: 


96.n.1  9600  Baud,  8  bits,  1  stop  bit,  No  Parity,  No  Flow 

Control 

ID.1  Controller  ID  #  =  1 

There  are  many  XT16  commands,  but  there  are  only  really  three 
commands  that  you  will  need  to  know  for  normal  HOST  communication  These 
are  summarized  here: 

Reading  the  current  temperature: 

Send:  #01R00<cr> 

XT1 6  returns:  <lf>#01  R00=  026.7C<crxlf>  (17  bytes) 

Reading  the  current  set  point  temperature: 

Send:  #01R01<cr> 

XT  1 6  returns:  <lf>#01  R01  =  026.7C<crxlf>  (1 7  bytes) 

Modifying  the  set  point  temperature: 

Send:  #01m01  025.0C<cr> 

XT1 6  returns:  <lf>#01M01  025.0C<crxlf>  (16  bytes) 


You  can  use  the  KEO  program  PRGTEST.EXE  to  test  out  the  XT16.  If  the 
ANIMATICS  (FW)  interface  is  plugged  into  COM1,  and  the  Temperature 
controller  (TEMP)  interface  is  plugged  into  COM2,  choose  Disconnect  from  the 
Connect  menu,  then  select  COM2  from  under  the  Settings  dialog  box  ( Connect 
menu),  and  then  Connect  again  from  the  Connect  menu.  Now  you  will  be  able  to 
manually  type  in  the  XT  1 6  commands  and  verify  that  the  interface  is  working 
correctly.  This  assumes  that  all  the  communications  protocols  remain  consistent 
with  this  appendix. 
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7.8  RTD  Chart 


table  xvm  Temperature  Vs.  Resistance  Table 

For  European  Curve,  Alpha-. 00385  V\«.  *■.  ■  }. 


i°  Celsius  tncrtMft 


•C  Ohm  Oilf. 


•C  Ohm  Oilf. 

-140  !  43.37  0.42 

139  44  28  0.41 

13  8  44.70  0  42 

137  45.11  0.4 1 

136  45.52  0  41 

135  45.94  0.42 

134  45.35  0.41 

133  45.76  0.41 

132  47.10  0  42 

131  4759  041 

130  43  00  0.41 

129  143.41  0  41 

129  43  02  0.41 

127  43  23  0  41 

125  43.64  0  41 

125  =0.06  0.42 

124  50.47  041 

123  50.88  0.41 

122  5129  0.41 

121  51.70  0  41 

120  52  11  0.41 

119  52.52  0  41 

118  52  32  0.40 

1  17  53  33 

116  53  74 

115  =4:5 

114  =4  56 

113  5497 

112  55  3* 

111  5573 

110  56  :9 

109  56  60 

108  37  CO 

107  57  41 

106  57  32 

1C5  =3  22 


102  1=3  44 

101  |  53  35 
ICO  150  25 
99  SC  66 
98  i4 06 
97  c-47 

96  |  ol  37 
95  j  52  23 
94  !  52  53 
93  :  52  09 


Ohm 
63  33 

79  |  63.73  1  0.40 
73  |  69.13  I  0.40 
69  53 
69  93 


73  53  0.40 

73.93  0.40 


4  33 
4.73 
5.13 
5.53 

5  93 


56 

77.92 

55 

73  32 

54 

78.72 

I? 

79  11 
79.51 

51 

79.91 

-20 
19 

18  92  35 

17  93.34 

16  93  73 


13  94  91 

12  95  20 

It  95  59 

10  96  29 


g:7ya  I 


28  110  20 1 

29  111.23 

30  111.37 

31  U2C6 

32 

33 

34  1 11322 

*  :3  8* 

36  j  *1 13  22 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 
*57 

58 

59  1 122  36 
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Cf\n 

t 
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OX 
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ox 

52 
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ox 
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OX 
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OX 
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ox 
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ox 
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ox 
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ox 
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*26  y 

ox 
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ox 
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ox 
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73 
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ox 
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ox 
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ox 
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7.9  SS440  Digital  Position  Sensor  Data  Sheet 


Digital  position  sensors 


FEATURES 

•  3.8-24  VDC  supply  voltage 

•  Digital  current  sinking  output 

•  3  pin  in-line  PCB  terminals 

•  Quad-Hafl  design  virtually  eliminates 
mechanical  stress  effects 

•  Temperature  compensated  magnetics 

•  Operate/release  points  can  be 
customized 

•  Bipolar,  unipolar,  latching  magnetics 

•  High  output  cument  capability  -  50  mA 
absolute  maximum 

•  Operate/release  points  symmetrical 
around  zero  gauss  (bipolar/latch} 

•  Operating  temperature  range  of -55  to 

1  150*C(-67  to  -1-302T) 


ORDER  GUIDE 


Catalog  titling 

SS411A 

SS413A 

SS441A 

SS443A 

SS449A 

SS461A 

SS466A 

Magnetic  Typo 

Bipolar 

Bipolar 

Unipolar 

Unipolar 

Unipolar 

Liitclwvi 

Intel  MM  | 

trtifipiy  VoIUmju  (VDC.) 

n.n  to 

:i  U  to  2* 

u  a  la  2  i 

3.0  lo  ?4 

tl.U  to  24 

ti  ll  to  21 

JUMP  2l 

Supply  Current  (max.) 

10  mA 

10  mA 

10  mA 

10  mA 

10  nvA 

10  mA 

10  mA 

Outpul  Type 

S*nk 

Sink 

Sink 

Sink 

Sink 

Sink 

Smk 

Output  Voltage  (max) 

.40  V 

.40  V 

.40  V 

.40  V 

.40  V 

.40  V 

.40  V 

Output  Currant,  max* 

20  mA 

20  mA 

20  mA 

20  mA 

20  mA 

20  mA 

20  mA 

Output  Leakage  Current,  max.  10  >tA  ♦ _ lO|iA _ 10  nA _ 10  pA _ 10  i*A _ 10  p* _ 10 1^ 

Output  Switching  Timo 

Vo:^12V.  Rise  {10-90%)  .05  pS  typ  .05  |i3  typ  .Q5jiStyp  .05|i*typ  .OSpstyp.  .OSjistyp  .OSnStyp 

R,. m  1.6  K.  _ 1.S  ps  max.  t.S>tamax.  1.SM*max.  IStismax.  l.Spsmax  1.5  max.  t3tnmax. 

C*20pF  Fait  (90-10%)  .15  ps  typ.  .I5pslyp  .I5»i*lyp.  -15pstyp-  .ISjistyp  .I5*islyp.  .t5Mstyp 

_ 1.5  p*  max.  1.5  gs  max.  1.5  p*  max.  I.Snsmtx  1.5  pS  max  1.5  max.  tSusmax. 

Magnetic  Characteristics  (Gauss) 

-40*0  Max  Op  70 _ 140 _ 135 _ 215 _ 435 _ UQ _ 200 _ 

Min.  Ret.  -70 _ -140  ' _ 20 _ 80 _ 2_t0 _ -1 10 _ _ 

tan.  Pd. _ 15 _ 20  ~ _ 15_ 

(TO  ~~  Max  Op  _  65  140  _  117 

Min.  Rel.  ~  ~  -65 _ -140  *"  20 


Mia  Oil.  15  20  18 _ 25 _ 30 _ 50 _ 200 


25*C 

Max.  Op 

60 

140 

t  IS 

180 

390 

as 

1B0 

Min.  Rel. 

-60 

-140 

20  ' 

75 

235 

-85 

-180 

M*c  Oil. 

IS 

20 

20 

25 

30 

50 

200 

85*C 

Max  Op 

60 

140 

120 

180 

400 

85 

180 

Mxv  Rel. 

-60 

-140 

15 

70 

215 

-85 

-180 

Min.  CM. 

12 

20 

15 

15 

30 

50 

190 

125*C 

Max  Op. 

6S 

140 

123 

190 

410 

100 

180 

Min.  Rel 

-65 

-140 

15 

60 

200 

-100 

-160 

Min.  Oil. 

12 

20 

8 

10 

30 

50 

160 

isox: 

Max.  Op. 

70 

140 

125 

200 

420 

110 

IBS 

Min.  Rel. 

-70 

-140 

10 

55 

165 

-110 

-16$ 

Mm.  CM. 

10 

20 

S 

5 

30 

50 

140 

■  Absolute  maximum  output  current  is  50  mA  ky  alt  SSUK)  kstings. 

Note:  For  SS40O  on  tapo  and  reel  wrin  formed  leads  on  C.I00*  centers,  contact  your  nearest  MICRO  SWITCH  Sales  Ollkre.  One  reel  contains  3.000 
sensors. 


10  MKtt  SWITCH  iHoneywBdivisnn  For  application  lielp:  cal  your  local  sates  office  feted  on  back  cover  tx  catn-800-537-6945. 


25 _  __  30 _ 50  ^ .  200 

Too" . 400 _ 90 _ 105 

80  230 _ -90 _ -IBS 


400SS  Series  position  sensors  have  a  ther¬ 
mally  balanced  mgraled  circuit  over  M  tem¬ 
perature  range.  The  negative  compensation 
slope  is  optimized  to  match  the  negative  tem¬ 
perature  coefficient  of  tower  cost  magnets. 
Bipolar,  latching  and  unipolar  magnetics  am 
availaote, 

MOUNTING  DIMENSIONS 
(For  reference  only) 


J  sL 


I —  fl£S  — I 


Band  gap  regulation  provides  extremely  sta¬ 
ble  operation  over  3.8  to  24  VDC  supply  volt¬ 
age  range  SS400  sensors  are  capable  ol 
continuous  20  mA  sinking  output  and  may 
be  cycled  as  high  as  50  mA  maximum. 


TAPE  AND  REEL 
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7.10  Wiring  and  Cable  Documentation 


7.10.1  AC  Power 


Signal  Name 

Rear  Panel 
Bendix 

Wire 

Color 

Athena  Temp. 
Controller 

m 

A 

Black 

C 

White 

L2 

AC(-) 

Chassis  Gnd 

B 

Green 

7.10.2  24VDC  Power 


Signal  Name 

24V  Supply 

Red 

P1.1 

A1  1 

Gnd 

_ 

Black 

PI  .2 

A2 

7.10.3  12VDC  Power  TEC  and  RTD  /  ATHENA  XT32  Connections 


Signal  Name 

12V  Supply 

Wire  Color 

TEC  LEMO 

TEC/ATHENA 

XT32 

12V  Fans 

Orange 

2 

TEC.2 

12V  TEC 

Red/BIk 

1 

RTD(+) 

Yellow 

4 

■  ii  IW 

RTD(-) 

Brown 

5 

XT32.2  (-) 

Gnd 

Out(-) 

Black 

3 

PI. 2  | 
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7.10.4  RS-232  Interface 


Signal  Name 

Rear  Panel 

DB9 

Wire  Color 

Smart  Motor 

DB1 1 

Transmit 

2 

Red 

3 

Receive 

3 

White 

4 

Gnd 

5 

Black 

5 

ATHENA  XT1 6 

Transmit 

7 

Orange 

14 

Receive 

8 

13 

Gnd 

9 

Brown 

6 

ATHENA  XT16:  [Set  by  KEO]  9600  Baud,  No  Parity,  8  Bits,  1  Stop  Bit,  ID=01 
SMARTMOTOR:  9600  Baud,  No  Parity,  8  Bits,  1  Stop  Bit, 

ADDR=01 


7.10.5  Filter  Wheel  Cable 


Signal  Name 

Filterwheel 
Bendix  8  pin 

Wire  Color 

SMARTMOTOR 

I/O  Connector 

Athena 

XT  16 
Controller 

1  ■  f»fj  jiTOBH 

C 

Red 

6 

BBBBBIIliM 

D 

Brown 

7 

lEBSUH 

E 

Orange 

1 

■HMEH 

RTD(+) 

A 

Green 

91 

RTD(-) 

G 

Blue 

mm 

RTD(S) 

H 

Yellow 

BSli 

AC(Line) 

F 

Black 

1  N.O. 
#1 

B 

White 

12  L2 
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7.10.6  ANILINK  Interface  (l2C) 


Signal  Name 

Smart  Motor 
AMP-MTE 

Wire  Color 

DIO-116 

AMP-MTE 

5V 

1 

Yellow 

1 

Gnd 

2 

Green 

2 

Data 

3 

Red 

3 

Clock 

4 

Black 

4 

7.10.7  Intensifier/Shutter  Controller  Board  Outputs 


Signal  Name 

Int/Shtr  Board 
DB-25 

Wire  Color 

Light  Detector 
LEMO  FGG.OB 

Shutter 

PR(+) 

11  1 

White 

1 

PR(-) 

23 

Gray 

2 

SH1(+) 

6 

Red 

1 

SHI(-) 

18 

Brown 

2 

Intensifier 

“Detector” 

PI 

13 

Red 

1  (3VDC) 

P2 

25 

Yellow 

3  (Gain) 

P3 

12 

Orange 

4  (Gain) 

P4 

24 

Black 

2  (GND) 

7.10.8  RS-232  Junction  Cable 


Signal  Name 

Rear  Panel 

DB9  (Male) 

Wire  Color 

FW  Control 

DB9  (Female) 

Temp. 

Control 

DB9 

(Female) 

Transmit 

2 

Red 

2  1 

Receive 

3 

White 

3 

Gnd 

5 

Black 

5 

Transmit 

7 

Red 

2 

Receive 

8 

White 

3 

Gnd 

9 

Black 

5 
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7.10.9  Filterwheel  Wiring  Documentation 


Filterwheel  Connector 


Signal  Name 

Pin 

RTD(+) 

A 

RTD(-) 

G 

RTD(S) 

H 

AC(Line) 

F 

AC(Neutral) 

B 

5VDC 

C 

Gnd 

D 

Home 

E 

Note  #1:  AC(Line)  and  AC(Neutral)  are  connected  to  both  Heater  Pads  in 
parallel.  The  total  parallel  resistance  should  be  on  the  order  of  1500. 


Note  #2:  There  is  an  internal  pull-up  resistor  of  4.7KO  between  pins  C  and  E  for 
the  Hall-Effect  Detector. 
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